home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Doc / APPEVNTS.INT < prev    next >
Encoding:
Text File  |  1999-08-11  |  1.6 KB  |  56 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {                                                       }
  6. {       Copyright (c) 1995,99 Inprise Corporation       }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit AppEvnts;
  11.  
  12. interface
  13.  
  14. uses Windows, Messages, SysUtils, Classes, Forms, ActnList;
  15.  
  16. type
  17.   TCustomApplicationEvents = class(TComponent)
  18.   protected
  19.     property OnActionExecute: TActionEvent;
  20.     property OnActionUpdate: TActionEvent;
  21.     property OnActivate: TNotifyEvent;
  22.     property OnDeactivate: TNotifyEvent;
  23.     property OnException: TExceptionEvent;
  24.     property OnIdle: TIdleEvent;
  25.     property OnHelp: THelpEvent;
  26.     property OnHint: TNotifyEvent;
  27.     property OnMessage: TMessageEvent;
  28.     property OnMinimize: TNotifyEvent;
  29.     property OnRestore: TNotifyEvent;
  30.     property OnShowHint: TShowHintEvent;
  31.     property OnShortCut: TShortCutEvent;
  32.   public
  33.     constructor Create(AOwner: TComponent); override;
  34.     procedure Activate;
  35.     procedure CancelDispatch;
  36.   end;
  37.  
  38.   TApplicationEvents = class(TCustomApplicationEvents)
  39.   published
  40.     property OnActionExecute;
  41.     property OnActionUpdate;
  42.     property OnActivate;
  43.     property OnDeactivate;
  44.     property OnException;
  45.     property OnIdle;
  46.     property OnHelp;
  47.     property OnHint;
  48.     property OnMessage;
  49.     property OnMinimize;
  50.     property OnRestore;
  51.     property OnShowHint;
  52.     property OnShortCut;
  53.   end;
  54.  
  55. implementation
  56.