Delphi -类过程 procedure(Sender: TObject) of object 对象方法类型

 

Delphi -类过程 procedure(Sender: TObject) of object 对象方法类型

procedure 类过程 定义:

type
    TMyPro = procedure(Sender: TObject) of object;

procedure 也是类型,可以理解为过程类型,定义过程的参数结构,可以实现过程动态赋值
例如: onclick的申明

onclick= procedure(Sender: TObject,a :integer) of object;
  • procedure 指针占4个字节,保存在过程的地址.
  • procedure of object占8个字节,保存过程的地址和类的地址

类过程与普通函数的区别:

  •  与普通函数相同点:可以像一般的函数和过程一样在类的实例里作为对象方法调用;
  •  与普通函数不同点:可以不通过对象,而是通过类来直接调用。

也就是说,一般函数和过程必须通过类的实例(对象)来调用,而类过程(类函数)则可以不必通过该类的实例来调用。通过类来调用函数或者过程,可以定义和实现一些不能或者不适合作为某一特定对象行为的方法。
例如,以下两种定义

Type
    TMouseProc = procedure (X,Y:integer);  //一种普通的过程
     TMouseEvent = procedure (X,Y:integer) of Object;//一种对象方法的类型
  • 两者的区别就在于TMouseEvent类型的方法必须在一个对象里。类方法存在一个隐藏参数self,也就是说两者形参不一样,所以不能相互转换 .
  • TMouseProc只是单一的函数指针类型;
  • TMouseEvent是对象的函数指针,也就是对象/类的函数/方法

 

Delphi 示例:

procedure TForm1.AA(I: Integer);
begin
  showmessage( ‘Roy: ‘ + IntToStr(I));
end;

procedure   TForm1.Button1Click(Sender:   TObject);
type
  TMyPro = procedure (i:integer)  of  object   ;
var
  MyPro: TMyPro;
begin
  MyPro:=   Form1.AA;    //传递
  MyPro(1);      //执行AA的事件  
end;

  

  

创建时间:2020.09.17  更新时间:

 

Delphi -类过程 procedure(Sender: TObject) of object 对象方法类型

上一篇:Windows系统修改默认远程端口


下一篇:nginx-windows-rtmp-server