把普通函数指针,变成对象方法指针

最新推荐文章于 2022-07-23 00:16:29 发布

weixin_30719711

最新推荐文章于 2022-07-23 00:16:29 发布

阅读量104

点赞数

原文链接：http://www.cnblogs.com/solokey/archive/2011/07/21/2113345.html

版权

delphi里的普通函数指针pointer 为4个字节,但是对象的方法指针是8个字节,由对象指针self(4字节)和函数指针(4字节)组合而成.了解了这句话,将普通的函数指针变成对象的方法指针就不是难事了.这种手段只能用于对象方法只有Sender这一个参数的情况.

下面是简单的例子代码.

 1 procedure  Button2Click(Sender: TObject);  //这里是一个普通的函数
 2 implementation
 3 
 4 {$R *.DFM}
 5 procedure  Button2Click(Sender: TObject);
 6 begin
 7   ShowMessage('1');
 8 end;
 9 
10 procedure TForm1.Button1Click(Sender: TObject);
11 var
12   Method: TMethod;
13 begin
14   Method.Code := @Button2Click;      //取得Button2Click函数指针
15   Method.Data := nil;                               //也可以是self
16   Button2.OnClick := TNotifyEvent(Method);
17 end;
18 
19 //---------------------------------无敌分割线-------------------------------
20 
21   TMethod = record
22     Code, Data: Pointer;
23   end;