请问aa=procedure()of object是什么意思

Question

大侠求救:请问aa=procedure()of object是什么意思

Answer 1

组件的方法定义
查查tnotifyevent会有收获的，它是没有参数的组件方法定义
type TNotifyEvent = procedure (Sender: TObject) of　object;

Answer 2

组件的方法定义
查查tnotifyevent会有收获的，它是没有参数的组件方法定义
type TNotifyEvent = procedure (Sender: TObject) of　object;

Answer 3

一般是这样写
Type
  aa = procedure() of object;
说明 aa是一个数据类型（一个指向方法入口的指针）, of object表明这个类型指针是“长指针”，可以在类里面使用。

Answer 4

以下是自定义的一个ｂｕｔｔｏｎ组件，
我上面说过的
type TNotifyEvent = procedure (Sender: TObject) of　object;
THWButton = class(TCustomControl, IHWSkin)
  private
    FOnMouseEnter: TNotifyEvent;
    FOnMouseLeave: TNotifyEvent;
....  published
     property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
.....