Evento label criado em tempo de execução
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
Curtidas 0
Respostas
Emerson Nascimento
12/08/2008
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;
GOSTEI 0
Abelha
12/08/2008
Obrigado. Segui sua dica e deu certo.
Valeu.
procedure TFormX.ClicaLabel(Sender: TObject); begin (sender as TLabel).visible:= false; end;
Valeu.
GOSTEI 0