Manipular componentes criados em tempo de execu��o

Question

:? Tenho um programa que gera 10 componentes do tipo TLabel em tempo de execu��o. Eu gostaria de executar rotinas ao clicar em alguns deles. Por exemplo: Se clicar no 3� label exibir� uma mensagem ao ...

Marcelo Saviski · Answer

crie a procedure(que tenha os mesmos parametros do evento) que vai executar algo quando foi clicado, por exemplo:

procedure LabelClick(Sender: TObject);
begin
 //faz algo aqui
end;

e quando criar o componente:

LabelCriado.OnClick := LabelClick;

ok?

Sonec2004 · Answer

Marcelo,
Obrigado pela ajuda, mas ainda tenho uma d�vida. Meu c�digo � assim:

Procedure CriaLabel;
Var
CriaLabel : Array[1..10] of TLabel;
i: Integer;
Begin  
  Y:=30;
  For i:=1 to 10 do
  Begin
    CriaLabel[i].Create(Self);
    CriaLabel[i].Caption:=�Rotina n� �+IntTostr(i);
    CriaLabel.top:=y;
    y:=y+20;
  End;
End;

S�o criados 10 componentes. Como diferenciar um do outro?

sonec2004@itelefonica.com.br

Emiliano · Answer

[quote:41cde2d638=�Sonec2004�]Marcelo, Obrigado pela ajuda, mas ainda tenho uma d�vida. Meu c�digo � assim:[code:1:41cde2d638]Procedure CriaLabel;VarCriaLabel : Array&#91;1..10&93; of TLabel;i: Integer;Begin    Y:=30;  For i:=1 to 10 do  Begin    CriaLabel&91;i&93;.Create(Self);    CriaLabel&91;i&93;.Caption:=�Rotina n� �+IntTostr(i);    CriaLabel.top:=y;    y:=y+20;  End;End;[/code:1:41cde2d638]S�o criados 10 componentes. Como diferenciar um do outro?sonec2004@itelefonica.com.br[/quote:41cde2d638]Execute o programa abaixo que vc ter� uma ideia de como identificar os Labels, j� que � um vetor de labels vc deve identific�los pelo indice do vetor.procedure TForm1.Button1Click(Sender: TObject);varCriaLabel : Array[1..10] of TLabel;i,Y: Integer;Begin  Y:=30;  For i:=1 to 10 do  Begin    CriaLabel := TLabel.Create(Self);    CriaLabel.Parent := Self;    CriaLabel.OnClick := ClicaLabel;    CriaLabel.Caption:=�Rotina n� �+IntTostr(i);    CriaLabel.top:=y;    y:=y+20;  End;  CriaLabel[1].Caption := CriaLabel[1].Caption + � -> Este � o label de indice 1�;  CriaLabel[10].Caption := CriaLabel[10].Caption + � -> Este � o label de indice 10�;end;procedure TForm1.ClicaLabel(Sender: TObject);begin   ShowMessage(�Cliquei no Label com a � + (Sender as TLabel).Caption );end;Coloque este c�digo em um formul�rio com um Button e crie a procedure ClicaLabel.Espero ter esclarecido.[]�...

Rodc · Answer

� simples, basta colocar um nome diferente para cada label. Ex.: Labe01, Labe02, etc...
Ou usar o tag do componente.

For i:=1 to 10 do
Begin
CriaLabel[i].Create(Self);
CriaLabel[i].Caption:=�Rotina n� �+IntTostr(i);
CriaLabel.top:=y;
CriaLabel.Name := �Label� + IntToStr(i);
CriaLabel.Tag := i;
y:=y+20;
End

Paulo_amorim · Answer

Ol�Para diferenciar componentes existe a propriedade Name... :wink:Mas mesmo assim dependendo do c�digo do seu LabelClick n�o seria necess�rio...At�+...

Eniorm · Answer

Eu criei um form em tempo de execu��o e funcionou beleza,
mas n�o consegui associar o evento OnClose do form principal
ao form q foi criado em tempo. Usei:

with TForm.Create(Self) do begin
   OnClose := FormClose;
   ShowModal;
end;

Mas n�o deu certo....

Sonec2004 · Answer

:D Brigad�o, colegas. Agora t� blz. Usei o c�digo do Emiliano e identifiquei os labels pelos tags.sonec2004@itelefonica.com.br...

F�rum Manipular componentes criados em tempo de execu��o #244653