TMethod用法

(2009-12-28 09:10:20)

转载▼

标签： 杂谈

分类： Delphi(DelphiX)

 

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;  

 

 

来个简单点的，以前记录。

 

procedure  Form1_FormDblClick(aSelf:  TForm1;  aSender:  TObject);
begin
   aSelf.Caption  :=  'Double  click  me!!!';
   aSelf.OnDblClick  :=  aSelf.FormDblClick;
end;

procedure  TForm1.FormCreate(Sender:  TObject);
var
   M:   TMethod;
   P:   Pointer;
begin
   M.Code  :=  @Form1_FormDblClick;
   M.Data  :=   Self;
   OnDblClick  :=  TNotifyEvent(M);
end;

procedure  TForm1.FormDblClick(Sender:  TObject);
begin
   Caption  :=  'The  original  event  is  restored.';
end;

 

//他祖先的procedure

var M:TMethod;P:Pointer;
begin
 p:=self.ClassParent.ClassParent.MethodAddress('actNewExecute');
  M.Code:=p;// 或者直接用@TfrmBaseMD.actNewExecute;
  M.Data:=self;
  TNotifyEvent(M)(Sender);

end;