delphi窗体控件的自动加入

[zuimongke]

在运行窗体上可以手动添加控件，并实现某些是事件。有谁实现了，请告知

[bailee]

在创建控件时加上：
你添加的控件.事件 := 一个事先也定义的函数

[Jera]

private
procedure MyClick(Sender: TObject);
.
.
.
.
.
.


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Mybutton:Tbutton;
begin
Mybutton:=Tbutton.Create(self);
Mybutton.parent:=self;
Mybutton.Top :=y;
Mybutton.Left :=x;
MyButton.Caption:=TimeToStr(now);
MyButton.OnClick :=MyClick;
Mybutton.Visible :=true;
end;


procedure TForm1.MyClick(Sender: TObject);
begin
Showmessage('ok')
end;