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

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

下面是简单的例子代码.

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;