procedure TForm1.Button1Click(Sender: TObject); var btn:TButton; begin btn:=TButton.Create(self); with btn do begin caption:='test'; parent:=form1; onclick:=btnclick; end; end;procedure Tform1.btnclick(Sender: TObject); begin showmessage('test'); end;
var btn:TButton;
begin
btn:=TButton.Create(self);
with btn do
begin
caption:='test';
parent:=form1;
onclick:=btnclick;
end;
end;procedure Tform1.btnclick(Sender: TObject);
begin
showmessage('test');
end;