Question

在Delphi中如何写动态控件事件的代码

比如在运行中生成一个名为aaa的Button控件
运行程序后单击aaa控件,Form1关闭
请问怎么编写

Answer 1

如果你仔细看过VCL的源代码，你会发现控件的事件实际上也是一个属性。只不过这个属性的数据类型比较特别，是一个指向对象方法的指针。
所以你只要写一个形参与目标一致的方法，然后动态生成一个对象，再把这个方法作为地址（就是只用方法名）赋值给动态生成对象的事件就可以了。实际上这个赋值操作是把动态生成对象的这个事件（方法指针）指向了你写的这个方法的入口地址。

Answer 2

private
{ Private declarations }
public
procedure myonclick(send:Tobject);
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure Tform1.myonclick(send:Tobject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
mybtn:tbutton;
begin
mybtn:=TButton.Create(application);
mybtn.Parent:=self;
mybtn.Left :=50;
mybtn.Top :=100;
mybtn.Caption :='aaa';
mybtn.OnClick:=myonclick;
end;