这是事件的声明。TNotifyEvent实际就是一个函数指针的定义。
这是TNotifyEvent的定义。
type TNotifyEvent = procedure (Sender: TObject) of object;

解决方案 »

  1.   

    你看到的代码不就是一个例子吗。
    此外$(Delphi)\Source\vcl下有的是例子,只要你耐心的读。
      

  2.   

    这些都是为类的事件属性所做的工作
    例子:
    procedure TCustomLabel.CMMouseEnter(var Message: TMessage);
    begin
      inherited; //相当于inherited CMMouseEnter(Message); 这时调用父类的方法
      if Assigned(FOnMouseEnter) then
        FOnMouseEnter(Self); //因为FOnMouseEnter是方法指针所以,和方法一样调用
    end;
      

  3.   

    Delphi的Help中没有,可能在你看到的源码中定义过,你自己找一找。