Evento label criado em tempo de execução
12/08/2008
0
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.
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
Curtir tópico
+ 0
Responder
Posts
12/08/2008
Emerson Nascimento
crie o evento e depois atribua.
por exemplo:
depois, ao criar os labels, atribua o procedimento ao evento:
label := tlabel.create(X);
label.OnClick := ClicaLabel;
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.
Valeu.
procedure TFormX.ClicaLabel(Sender: TObject); begin (sender as TLabel).visible:= false; end;
Valeu.
Responder
Clique aqui para fazer login e interagir na Comunidade :)