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 Category: Pascal 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) ;

private

procedure 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;