Evento label criado em tempo de execução

Delphi

12/08/2008

Olá.
Minha ap cria 100 labels em tempo de execução. Eu gostaria de atribuir um evento comum a eles, mas não sei como fazer, tipo, quando clico em um deles, o mesmo fica invisível.
Obrigado.


Abelha

Abelha

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

12/08/2008

crie o evento e depois atribua.

por exemplo:
procedure TFormX.ClicaLabel(Sender: TObject);
begin
  [Faça algo...]
end;

depois, ao criar os labels, atribua o procedimento ao evento:
label := tlabel.create(X);
label.OnClick := ClicaLabel;


GOSTEI 0
Abelha

Abelha

12/08/2008

Obrigado. Segui sua dica e deu certo.

procedure TFormX.ClicaLabel(Sender: TObject);
begin
  (sender as TLabel).visible:= false;
end;


Valeu.


GOSTEI 0
POSTAR