Acessar label propriedade de um label criado em run-time

Delphi

Boas Práticas

23/02/2021

Olá Pessoal tudo bem?

Estou criando alguns TCategoryPanel e dentro dele possuo alguns label's, a criação é feita corretamente,
porém preciso acessar o valor do label criado em determinado TCategoryPanel.

Já fiz a implementação do evento "OnDblClick" porém não sei como pegar o valor do Label de determinado Painel criado.

Detalhe, possuo um CategoryPanelGroup dentro dele faço a criação dos CategoryPanel e Label.
Bruno Divino

Bruno Divino

Curtidas 0

Melhor post

Emerson Nascimento

Emerson Nascimento

23/02/2021

acabei de testar e funcionou
var
  lblPedido: TComponent;
  cSufLabel: string;
begin
  cSufLabel := Copy(TWinControl(Sender).Name,7,50); // obtém o conteúdo depois de 'CadPed'

  // se o label foi criado no panel
  lblPedido := TWinControl(Sender).FindComponent('LB_NRO_PD'+cSufLabel);

  if assigned(lblPedido) then
    ShowMessage( TLabel(lblPedido).Caption );

end;

GOSTEI 2

Mais Respostas

Emerson Nascimento

Emerson Nascimento

23/02/2021

isto depende de como é feita a criação do label.
se o label é nomeado, busque pelo nome.
GOSTEI 0
Gxf

Gxf

23/02/2021

no object inspector altere a propriedade TAG do label, desta forma pode manipular pegando da tag. Ex:


if label1.Tag = 0 then
ShowMessage('é tag 0')
else
ShowMessage('tag <> de 0');

GOSTEI 0
Bruno Divino

Bruno Divino

23/02/2021

isto depende de como é feita a criação do label.
se o label é nomeado, busque pelo nome.


Emerson, na criação do label faço a nomeação.

Essa é a procedure que estou usando em meus testes,

No evento PedidosClick preciso pegar o valor do label "L4", e armazenar.


procedure TfrmDelivery.btn_pedidoClick(Sender: TObject);
var
  I, X: Integer;
  L1, L2, L3, L4, L5: TLabel;
  E: TCategoryPanel;
begin
  X := 1;

  while not Dm_Api_pedidos.FDQueryGridPedidos.Eof do
  begin

    E := TCategoryPanel.Create(CategoryPanelGroup2);
    begin
      E.Name := 'CadPed' + IntToStr(X);
      E.Caption := 'Pedido';
      E.Width := 303;
      E.Height := 105;
      E.Color := clInactiveBorder;
      TabOrder := I;
      E.PanelGroup := CategoryPanelGroup2;
      E.OnDblClick := PedidosClick;
      E.Tag := X;

      L1 := TLabel.Create(E);
      begin
        L1.Parent := E;
        L1.Left := 10;
        L1.Top := 8;
        L1.AlignWithMargins := True;
        L1.Caption := 'Pedido: ';
        L1.Name := 'LB_PEDIDO' + IntToStr(X);

      end;

      L2 := TLabel.Create(E);
      begin
        L2.Parent := E;
        L2.Top := 31;
        L2.Left := 10;
        L2.Width := 121;
        L2.Height := 17;
        L2.AutoSize := True;
        L2.AlignWithMargins := True;
        L2.Caption := 'Cliente: ';
      end;

      L5 := TLabel.Create(E);
      begin
        L5.Parent := E;
        L5.Top := 31;
        L5.Left := 67;
        
        // L2.Width := 121;
        // L2.Height := 17;
        L5.AutoSize := True;
        L5.AlignWithMargins := True;
        L5.Caption := Dm_Api_pedidos.FDQueryGridPedidos.FieldByName
          ('CLIENTE').AsString;
      end;

      L3 := TLabel.Create(E);
      begin
        L3.Parent := E;
        L3.Left := 146;
        L3.Top := 8;
      
        // L3.Width := 96;
        // L3.Height := 17;
        L3.AlignWithMargins := True;
        L3.Caption := Dm_Api_pedidos.FDQueryGridPedidos.FieldByName
          ('DESCR_STATUS').AsString;
      end;

      L4 := TLabel.Create(E);
      begin
        L4.Parent := E;
        L4.Left := 59;
        L4.Top := 8;

        L4.Name := 'LB_NRO_PD' + IntToStr(X);
        L4.Caption := IntToStr(Dm_Api_pedidos.FDQueryGridPedidos.FieldByName
          ('ID_PEDIDO').AsInteger);
        // L3.Width := 96;
        // L3.Height := 17;
        // L3.Caption := 'Status Pendente';
        L4.AlignWithMargins := True;
        L4.Tag := X;
      end;

    end;

    Inc(X);

    Dm_Api_pedidos.FDQueryGridPedidos.Next;
  end;

end;
GOSTEI 0
Bruno Divino

Bruno Divino

23/02/2021

no object inspector altere a propriedade TAG do label, desta forma pode manipular pegando da tag. Ex:


if label1.Tag = 0 then
ShowMessage('é tag 0')
else
ShowMessage('tag <> de 0');



Fala Gxf beleza?

Então, estou com um pouco de dificuldade, já tentei pegar o valor pela tag, porém sempre pego o último valor, o problema é.

Quando eu clicar duas vezes no CategoryPanel1, ou 2 etc.. preciso pegar o Caption do L4.
GOSTEI 0
Emerson Nascimento

Emerson Nascimento

23/02/2021

como o panel foi nomeado, no seu duplo-clique faça algo assim:
var
  lblPedido: TLabel;
  cSufLabel: string;
begin
  cSufLabel := Copy(Sender.Name,7,50); // obtém o conteúdo depois de 'CadPed'

  // se o label foi criado no panel
  lblPedido := TWinControl(Sender).FindComponent('LB_PEDIDO'+cSufLabel);

  // se o label foi criado no form
//  lblPedido := FindComponent('LB_PEDIDO'+cSufLabel);

  if assigned(lblPedido) then
	ShowMessage( TLabel(lblPedido).Caption );

end;

GOSTEI 0
Emerson Nascimento

Emerson Nascimento

23/02/2021

como o panel foi nomeado, no seu duplo-clique faça algo assim:
var
  lblPedido: TComponent;
  cSufLabel: string;
begin
  cSufLabel := Copy(Sender.Name,7,50); // obtém o conteúdo depois de 'CadPed'
 
  // se o label foi criado no panel
  lblPedido := TWinControl(Sender).FindComponent('LB_PEDIDO'+cSufLabel);
 
  // se o label foi criado no form
//  lblPedido := FindComponent('LB_PEDIDO'+cSufLabel);
 
  if assigned(lblPedido) then
    ShowMessage( TLabel(lblPedido).Caption );
 
end;
GOSTEI 0
Bruno Divino

Bruno Divino

23/02/2021

como o panel foi nomeado, no seu duplo-clique faça algo assim:
var
  lblPedido: TComponent;
  cSufLabel: string;
begin
  cSufLabel := Copy(Sender.Name,7,50); // obtém o conteúdo depois de ''CadPed'' {Aqui substitui o Sender.Name por E.Name
que é o name do panel a ser pego é isso?}
 
  // se o label foi criado no panel
  lblPedido := TWinControl(Sender).FindComponent(''LB_PEDIDO''+cSufLabel);
 
  // se o label foi criado no form
//  lblPedido := FindComponent(''LB_PEDIDO''+cSufLabel);
 
  if assigned(lblPedido) then
    ShowMessage( TLabel(lblPedido).Caption );
 
end;



Emerson tentei aqui porém não obtive exito.

Quando rodo a rotina de criação dos Panel, é criado dois panel com seus respectivos label, eu estou tentando capturar o valor do label " L4.Caption := IntToStr(Dm_Api_pedidos.FDQueryGridPedidos.FieldByName
(''ID_PEDIDO'').AsInteger);"

Os Label são criados no Parent do Panel, será que esse é o problema?

Eu poderia simplesmentes dar um ShowMessage(L4.Caption); porém isso me retorna o último valor gerado em "run time".

Preciso que quando seja clicando duas o evento traga o número do pedido que está no CategoryPanel que cliquei.
GOSTEI 0
Emerson Nascimento

Emerson Nascimento

23/02/2021



publique a rotina (completa) onde quer utilizar o recurso.



GOSTEI 0
Bruno Divino

Bruno Divino

23/02/2021



publique a rotina (completa) onde quer utilizar o recurso.






procedure TfrmDelivery.btn_pedidoClick(Sender: TObject);
var
  I, X: Integer;
  L1, L2, L3, L5: TLabel;

begin
  X := 1;

  while not Dm_Api_pedidos.FDQueryGridPedidos.Eof do
  begin

    E := TCategoryPanel.Create(CategoryPanelGroup2);
    begin
      E.Name := 'CadPed' + IntToStr(X);
      E.Caption := 'Pedido';
      E.Width := 303;
      E.Height := 105;
      E.Color := clInactiveBorder;
      TabOrder := I;
      E.PanelGroup := CategoryPanelGroup2;
      E.OnDblClick := PedidosClick;
      E.Tag := X;

      L1 := TLabel.Create(E);
      begin
        L1.Parent := E;
        L1.Left := 10;
        L1.Top := 8;
        L1.AlignWithMargins := True;
        L1.Caption := 'Pedido: ';
        L1.Name := 'LB_PEDIDO' + IntToStr(X);

      end;

      L2 := TLabel.Create(E);
      begin
        L2.Parent := E;
        L2.Top := 31;
        L2.Left := 10;
        L2.Width := 121;
        L2.Height := 17;
        L2.AutoSize := True;
        L2.AlignWithMargins := True;
        L2.Caption := 'Cliente: ';
      end;

      L5 := TLabel.Create(E);
      begin
        L5.Parent := E;
        L5.Top := 31;
        L5.Left := 67;
        L5.Font.Name := 'Segoe UI';
        // L2.Width := 121;
        // L2.Height := 17;
        L5.AutoSize := True;
        L5.AlignWithMargins := True;
        L5.Caption := Dm_Api_pedidos.FDQueryGridPedidos.FieldByName
          ('CLIENTE').AsString;
      end;

      L3 := TLabel.Create(E);
      begin
        L3.Parent := E;
        L3.Left := 146;
        L3.Top := 8;
        L3.Font.Name := 'Segoe UI';
        // L3.Width := 96;
        // L3.Height := 17;
        L3.AlignWithMargins := True;
        L3.Caption := Dm_Api_pedidos.FDQueryGridPedidos.FieldByName
          ('DESCR_STATUS').AsString;
      end;

      L4 := TLabel.Create(E);
      begin
        L4.Parent := E;
        L4.Left := 59;
        L4.Top := 8;
        L4.Font.Name := 'Segoe UI';
        L4.Name := 'LB_NRO_PD' + IntToStr(X);
        L4.Caption := IntToStr(Dm_Api_pedidos.FDQueryGridPedidos.FieldByName
          ('ID_PEDIDO').AsInteger);
        // L3.Width := 96;
        // L3.Height := 17;
        // L3.Caption := 'Status Pendente';
        L4.AlignWithMargins := True;
        L4.Tag := X;
      end;

    end;

    Inc(X);

    Dm_Api_pedidos.FDQueryGridPedidos.Next;
  end;

end;


Essa função é onde eu gero os campos de teste, é um speedbuttom dentro desse laço while que irá ler os dados da tabela e gerar dois TCategoryPanel com os labels. que gera os panel e os label.

Repare que essa função cria o evento "E.OnDblClick := PedidosClick;"


procedure TfrmDelivery.PedidosClick(Sender: TObject);
var
  lblPedido: TComponent;
  cSufLabel: string;
begin
// aqui preciso pegar o valor do label(que é alimentado pela query no momento da criação) do seus respectivo TCategoryPanel.
end;


Eu até consegui pegar com a função que você me passou, porém apenas do último registro criado, e não do primeiro, meu problema está em setar o TCategoryPanel correto na hora de usar a função PedidosClick.
GOSTEI 0
Emerson Nascimento

Emerson Nascimento

23/02/2021

procedure TfrmDelivery.PedidosClick(Sender: TObject);
var
  lblPedido: TComponent;
  cSufLabel: string;
begin
  // aqui preciso pegar o valor do label(que é alimentado pela query no momento da criação) do seus respectivo TCategoryPanel.
  // assim será possível identificar o 'número' dos componentes, pelo sufixo
  cSufLabel := Trim(Copy(Sender.Name,7,50)); // obtém o conteúdo depois de 'CadPed'
  
  // se o label foi criado no panel
  lblPedido := TWinControl(Sender).FindComponent('LB_NRO_PD'+cSufLabel); // se não der certo com este
  // se o label foi criado no form
//  lblPedido := FindComponent('LB_NRO_PD'+cSufLabel); // tente com este
  
  if assigned(lblPedido) then
    ShowMessage( 'LB_PEDIDO'+cSufLabel+': ' + TLabel(lblPedido).Caption );
  
end;


GOSTEI 0
Bruno Divino

Bruno Divino

23/02/2021

procedure TfrmDelivery.PedidosClick(Sender: TObject);
var
  lblPedido: TComponent;
  cSufLabel: string;
begin
  // aqui preciso pegar o valor do label(que é alimentado pela query no momento da criação) do seus respectivo TCategoryPanel.
  // assim será possível identificar o 'número' dos componentes, pelo sufixo
  cSufLabel := Trim(Copy(Sender.Name,7,50)); // obtém o conteúdo depois de 'CadPed'
  
  // se o label foi criado no panel
  lblPedido := TWinControl(Sender).FindComponent('LB_NRO_PD'+cSufLabel); // se não der certo com este
  // se o label foi criado no form
//  lblPedido := FindComponent('LB_NRO_PD'+cSufLabel); // tente com este
  
  if assigned(lblPedido) then
    ShowMessage( 'LB_PEDIDO'+cSufLabel+': ' + TLabel(lblPedido).Caption );
  
end;


procedure TfrmDelivery.PedidosClick(Sender: TObject);
var
  lblPedido: TComponent;
  cSufLabel: string;
begin
  // aqui preciso pegar o valor do label(que é alimentado pela query no momento da criação) do seus respectivo TCategoryPanel.
  // assim será possível identificar o 'número' dos componentes, pelo sufixo
  cSufLabel := Trim(Copy(Sender.Name,7,50)); // obtém o conteúdo depois de 'CadPed' // TObject does not contain a member named 'Name'
   
  // se o label foi criado no panel
  lblPedido := TWinControl(Sender).FindComponent('LB_NRO_PD'+cSufLabel); // se não der certo com este
  // se o label foi criado no form
//  lblPedido := FindComponent('LB_NRO_PD'+cSufLabel); // tente com este
   
  if assigned(lblPedido) then
    ShowMessage( 'LB_PEDIDO'+cSufLabel+': ' + TLabel(lblPedido).Caption );
   
end;


Emerson ao compilar tive o erro TObject does not contain a member named 'Name' la linha "SufLabel := Trim(Copy(Sender.Name,7,50));"

Aqui preciso trocar o parametro Sender?

Consegui compilar colocando no lugar do Sender E.name.

Porém só pego o valor do label 2, o label 1 não acontece nada.
GOSTEI 0
Bruno Divino

Bruno Divino

23/02/2021

acabei de testar e funcionou
var
  lblPedido: TComponent;
  cSufLabel: string;
begin
  cSufLabel := Copy(TWinControl(Sender).Name,7,50); // obtém o conteúdo depois de 'CadPed'

  // se o label foi criado no panel
  lblPedido := TWinControl(Sender).FindComponent('LB_NRO_PD'+cSufLabel);

  if assigned(lblPedido) then
    ShowMessage( TLabel(lblPedido).Caption );

end;



Muito obrigado Emerson, valores pegando corretamente.
GOSTEI 0
POSTAR