怎样添加一个全新的事件?

现有一控件 dbgrid，现在要定义一个新事件MyEvent,如何对这个新事件做出相应？

解决方案 »

  1.   

    定义一个消息处理过程，相应某个消息
    procedure onMyEvent(var msg : tmessage) : message : xf_message;xf_message为你要处理的消息
      

  2.   

    vC L的事件系统封装了许多Wi n d o w s的消息。
    D e l p h i的事件系统是为了更好地与Wi n d o w s消息接口而设计的。许多V C L的事件都对应着一个W M _ X X X消息。你定义的事件应该是处理某个消息的，消息可以是WINDOWS的消息，也可以是你自己定义的消息
      

  3.   

    type
      TMyEvent = procedure(const AData: string) of object;  .....
      private
        FOnMyEvent: TMyEvent;
      public
        property OnMyEvent: TMyEvent read FOnMyEvent write  FOnMyEvent;  .....