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

delphi里的普通函数指针pointer 为4个字节,但是对象的方法指针是8个字节,由对象指针self(4字节)和函数指针(4字节)组合而成.了解了这句话,将普通的函数指针变成对象的方法指针就不是难事了.

下面是简单的例子代码.

procedure  Button2Click(Sender: TObject);  //这里是一个普通的函数
implementation

{$R *.DFM}
procedure  Button2Click(Sender: TObject);
begin
  ShowMessage('1');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Method: TMethod;
begin
  Method.Code := @Button2Click;      //取得Button2Click函数指针
  Method.Data := nil;                               //也可以是self
  Button2.OnClick := TNotifyEvent(Method);
end;

 

---------------------------------无敌分割线-------------------------------

  TMethod = record
    Code, Data: Pointer;
  end;

懵老作品 http://blog.csdn.net/solokey/archive/2006/06/07/779186.aspx