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;

转载于:https://www.cnblogs.com/hnxxcxg/archive/2008/07/11/2941030.html