|
A ver si el ejemplo te sirve
procedure Tform1.superevento(Sender: TObject);
begin
showmessage('hola');
end;
procedure TForm1.superevento2(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
showmessage('ole');
end;
procedure TForm1.FormActivate(Sender: TObject);
var
s:Tbutton;
j:Tedit;
begin
s := tbutton.create(self);
s.Parent := self;
s.onclick := superevento;
j:= Tedit.create(self);
j.parent := self;
j.Left := 120;
j.OnMouseDown := superevento2;
end;
Saludos
|