Eventos para objetos criado em tempo de execução

[Aprendizporumavida 0]

Bom dia pessoal,

 

Seguinte criei um label em tempo de execução

 

procedure TForm1.FormShow(Sender: TObject);

begin

vLabel := TLabel.Create(form1);

Self.InsertControl(vLabel);

vLabel.Name := 'Label1';

end;

 

e declarei a variavel como publica.

 

agora o que eu precisava éra criar eventos para este label, como onClick, mouseEnter..entre outros,

 

Consigo fazer isto ?

 

Obrigado pessoal ..

abs

[bdexterholland 0]

Você cria uma procedure que respeite os parâmetros que o evento necessite, ao criar o objeto, proceda assim:

procedure ao_clicar_em_algo(Sender : Tobjetc);
begin
  ShowMessage('Você clicou em alguma coisa!!!');
end;

procedure Tform1.formcreate(Sender: TObject)
var
  MeuLabel : TLabel;
begin
  MeuLabel := TLabel.create(form1);
  MeuLabel.onClick := ao_clicar_em_algo;
end;

[Aprendizporumavida 0]

Perfeito, obrigado mesmo.

 

Agora só precisava posicionar o label criado, na parte inferior do formulário.

 

Se puder me dar um help.

 

obrigado

 

abs

[bdexterholland 0]

procedure ao_clicar_em_algo(Sender : Tobjetc);

begin

ShowMessage('Você clicou em alguma coisa!!!');

end;

 

procedure Tform1.formcreate(Sender: TObject)

var

MeuLabel : TLabel;

begin

MeuLabel := TLabel.create(form1);

MeuLabel.onClick := ao_clicar_em_algo;

label1.top := form1.ClientHeight - label1.height

end;

[Aprendizporumavida 0]

Perfeito.

 

Funcionou certinho,

 

obrigado mesmo.

vlw pela força.

 

 

abs