Evento label criado em tempo de execução

12/08/2008

3

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.


Responder

Posts

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;


Responder

30/08/2008

Abelha

Obrigado. Segui sua dica e deu certo.

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


Valeu.


Responder