Fórum criar evento de componente #356783
08/04/2008
0
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?
var
mbotao: tbutton;
begin
mbotao:=tbutton.Create(self);
mbotao.Parent:=self;
end;
Mas como faço para criar, digamos, o evento OnClick?
Catunda
Curtir tópico
+ 0
Responder
Posts
08/04/2008
Rodc
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)