![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
在Delphi中如何写动态控件事件的代码 30
比如在运行中生成一个名为aaa的Button控件运行程序后单击aaa控件,Form1关闭请问怎么编写...
比如在运行中生成一个名为aaa的Button控件
运行程序后单击aaa控件,Form1关闭
请问怎么编写 展开
运行程序后单击aaa控件,Form1关闭
请问怎么编写 展开
2个回答
展开全部
如果你仔细看过VCL的源代码,你会发现控件的事件实际上也是一个属性。只不过这个属性的数据类型比较特别,是一个指向对象方法的指针。
所以你只要写一个形参与目标一致的方法,然后动态生成一个对象,再把这个方法作为地址(就是只用方法名)赋值给动态生成对象的事件就可以了。实际上这个赋值操作是把动态生成对象的这个事件(方法指针)指向了你写的这个方法的入口地址。
所以你只要写一个形参与目标一致的方法,然后动态生成一个对象,再把这个方法作为地址(就是只用方法名)赋值给动态生成对象的事件就可以了。实际上这个赋值操作是把动态生成对象的这个事件(方法指针)指向了你写的这个方法的入口地址。
展开全部
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;
{ 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;
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询