TMethod

onclick是TNotifyEvent类型;    

type

  TNotifyEvent   =   procedure(Sender:   TObject)   of   object;    

就是说他是一个过程，而且是有一个TObject的参数，并且包含在一个对象里～～  

关于类的方法：(不是类方法，这里指object   pascal中的静态方法，相当于C++的成员函数) 1：   带有隐含参数   self        

2：   方法是方法，数据是数据。        

3：Delphi的方法是一个结构              

type          

  TMethod   =   record

  Code:   Pointer;     //方法的入口地址                 

  Data:   Pointer;     //类实例指针(Self参数)              

  end;      

我们调用类的方法，其实分为2个部分，        

1：调用方法的代码，通过类来获得方法入口地址。        

2：访问对象的数据(也可能不访问)，通过类的方法的那个隐含参数Self来访问。 

我做了一个测试：        

TMyObject   =   class  

   private      

     FName:   string;  

   public     

     procedure   ChangeName(AName:   string);       

     procedure   ShowPrivate;   

    end;   

procedure   TMyObject.ChangeName(AName:   string);

begin    

  FName   :=   AName;   //修改私有变量     

  ShowMessage('My   name   is   to   be   changed   to   '   +   AName);

end;  

procedure   TMyObject.ShowPrivate;    

begin

  ShowMessage('My   name   is   '   +   FName);   

end; 

procedure   TForm1.Button1Click(Sender:   TObject);

type   

    TCallFun   =   procedure(AName:   string)   of   object;

var  

   E:   TMyObject;   

   M:   TMethod;

begin    

   E   :=   TMyObject.Create;  

   M.Code   :=   @TMyObject.ChangeName;   //这里设置要访问的方法的入口地址      M.Data   :=   @Pointer(E)^;

   //设置Self参数，即类实例指针 @Pointer(E)^与Pointer(E)一样的       

   TCallFun(M)('Xbl');        

   E.ShowPrivate;     //My   name   is   Xbl       

   E.Free;

end;    

 

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;  

 

How to execute a method (procedure/function) by name :

Here's a simple trick to execute a Delphi object's method by name:

type

TForm1 = class(TForm)

 Button1: TButton;

 procedure Button1Click(Sender: TObject) ;

 procedure CallMeByName(Sender: TObject) ;

 privateprocedure ExecMethod(OnObject: TObject; MethodName: string) ;

end;

var

Form1: TForm1;

type

TExec = procedure of object;

procedure TForm1.ExecMethod(OnObject: TObject; MethodName: string) ;

var

 Routine: TMethod;

 Exec: TExec;

begin

 Routine.Data := Pointer(OnObject) ;

 Routine.Code := OnObject.MethodAddress(MethodName) ;

 if NOT Assigned(Routine.Code) then Exit;

 Exec := TExec(Routine) ;

 Exec;

end;

procedure TForm1.CallMeByName(Sender: TObject) ;

begin

 ShowMessage('Hello Delphi!') ;

end;

procedure TForm1.Button1Click(Sender: TObject) ;

begin

 ExecMethod(Form1, 'CallMeByName') ;

end;