criar evento de componente

Delphi

08/04/2008

Digamos para criar um button em tempo de execução:

var
mbotao: tbutton;
begin
mbotao:=tbutton.Create(self);
mbotao.Parent:=self;
end;

Mas como faço para criar, digamos, o evento OnClick?


Catunda

Catunda

Curtidas 0

Respostas

Rodc

Rodc

08/04/2008

Você precisa criar uma função que tenha os parâmetros que o evento OnClick precisa, no caso, apenas um TObject. Segue o exemplo:
var 
    mbotao: tbutton; 
begin 
    mbotao:=tbutton.Create(self); 
    mbotao.Parent:=self; 
    mbotao.OnClick:=meuOnClick;
end;

procedure TForm1.meuOnClick(Sender: TObject)
begin
    // Código do click do botão
end;



GOSTEI 0
POSTAR