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;