Eventos em runtime

[m_ceceu 0]

Olá para todos...

Estou desenvolvendo um projeto e estou preso a um problema...

Durante o tempo de execução crio ou melhor estancio varios objetos mas não consigo colocar eventos a estes objetos!!!

Alguem sabe como me ajudar...

Vlw http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

[TheMaker 0]

Olá!

 

Seguinte:

 

Sempre q você criar componentes em runtime e quiser adicionar eventos, você precisa criar suas procedures com os parametros identicos ao evento desejado.

 

Ex:

 

Procedure MeuBotaoOnClick(Sender : TObject);

Begin

ShowMessage('Botão clicado!');

End;

 

No exemplo acima o evento OnClick de um TButton espera sempre por um parametro

TObject;(Podem haver outros vários, antes de declarar sua procedure analise o evento desejado primeiro);

 

Usando:

 

Procedure TForm1.Teste;

Var

Btn : TButton;

Begin

Btn := TButton.Create(Form1);

Btn.Parent := Form1;

Btn.OnClick := MeuBotaoOnClick;

End;

 

Espeo ter ajudado.

[]'s

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif