Criação de Eventos em tempo de execução

Delphi

07/08/2003

Para criar um objeto em tempo de execução o procedimento é :

with TEdit.Create(Self) do
begin
Parent := Self;
Left := 24;
Top := 0;
Name := ´txt_area1´;
Width := 20;
Text := ´´;
end;

porém como faço para programar o evento onclick por exemplo?
rickmen@ig.com.br


Rickmen

Rickmen

Curtidas 0

Respostas

Cebikyn

Cebikyn

07/08/2003

Crie uma procedure do tipo:

procedure TForm1.Edit1Click(Sender: TObject);
begin
  //  Seu código aqui;
end;


Declare esta procedure no Form:

type
  TForm1 = class(TForm)
  ...
  private
    procedure Edit1Click(Sender: TObject);


Depois no basta colocar a seguinte linha de código durante a criação do TEdit (bloco with-do):

OnClick := Edit1Click;



GOSTEI 0
POSTAR