home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / AppEvents / main.pas < prev   
Pascal/Delphi Source File  |  1999-08-11  |  4KB  |  148 lines
  1. unit main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   AppEvnts, ActnList, Menus, StdCtrls;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     ApplicationEvents: TApplicationEvents;
  12.     ActionList: TActionList;
  13.     Action: TAction;
  14.     MainMenu: TMainMenu;
  15.     MenuAction: TMenuItem;
  16.     MenuException: TMenuItem;
  17.     HintButton: TButton;
  18.     lbOnMessage: TListBox;
  19.     lblOnMessage: TLabel;
  20.     lbOther: TListBox;
  21.     lblOther: TLabel;
  22.     lbIdle: TListBox;
  23.     lblOnIdle: TLabel;
  24.     lbActionUpdate: TListBox;
  25.     lblOnActionUpdate: TLabel;
  26.     procedure ApplicationEventsActionExecute(Action: TBasicAction;
  27.       var Handled: Boolean);
  28.     procedure ApplicationEventsActionUpdate(Action: TBasicAction;
  29.       var Handled: Boolean);
  30.     procedure ApplicationEventsActivate(Sender: TObject);
  31.     procedure ApplicationEventsDeactivate(Sender: TObject);
  32.     procedure ApplicationEventsException(Sender: TObject; E: Exception);
  33.     function ApplicationEventsHelp(Command: Word; Data: Integer;
  34.       var CallHelp: Boolean): Boolean;
  35.     procedure ApplicationEventsHint(Sender: TObject);
  36.     procedure ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
  37.     procedure ApplicationEventsMessage(var Msg: tagMSG;
  38.       var Handled: Boolean);
  39.     procedure ApplicationEventsMinimize(Sender: TObject);
  40.     procedure ApplicationEventsRestore(Sender: TObject);
  41.     procedure ApplicationEventsShortCut(var Msg: TWMKey;
  42.       var Handled: Boolean);
  43.     procedure ApplicationEventsShowHint(var HintStr: String;
  44.       var CanShow: Boolean; var HintInfo: THintInfo);
  45.     procedure ActionExecute(Sender: TObject);
  46.     procedure MenuExceptionClick(Sender: TObject);
  47.   private
  48.     { Private declarations }
  49.   public
  50.     { Public declarations }
  51.   end;
  52.  
  53. var
  54.   MainForm: TMainForm;
  55.  
  56. implementation
  57.  
  58. {$R *.DFM}
  59.  
  60. procedure TMainForm.ApplicationEventsActionExecute(Action: TBasicAction;
  61.   var Handled: Boolean);
  62. begin
  63.   lbOther.Items.Add('Event OnActionExecute');
  64. end;
  65.  
  66. procedure TMainForm.ApplicationEventsActionUpdate(Action: TBasicAction;
  67.   var Handled: Boolean);
  68. begin
  69.   lbActionUpdate.Items.Add('Event OnActionUpdate');
  70. end;
  71.  
  72. procedure TMainForm.ApplicationEventsActivate(Sender: TObject);
  73. begin
  74.   lbOther.Items.Add('Event OnActivate');
  75. end;
  76.  
  77. procedure TMainForm.ApplicationEventsDeactivate(Sender: TObject);
  78. begin
  79.   lbOther.Items.Add('Event OnDeactivate');
  80. end;
  81.  
  82. procedure TMainForm.ApplicationEventsException(Sender: TObject;
  83.   E: Exception);
  84. begin
  85.   lbOther.Items.Add('Event OnException: ' + E.Message);
  86. end;
  87.  
  88. function TMainForm.ApplicationEventsHelp(Command: Word; Data: Integer;
  89.   var CallHelp: Boolean): Boolean;
  90. begin
  91.   lbOther.Items.Add('Event OnHelp');
  92.   Result := False;
  93. end;
  94.  
  95. procedure TMainForm.ApplicationEventsHint(Sender: TObject);
  96. begin
  97.   lbOther.Items.Add('Event OnHint');
  98. end;
  99.  
  100. procedure TMainForm.ApplicationEventsIdle(Sender: TObject;
  101.   var Done: Boolean);
  102. begin
  103.   lbIdle.Items.Add('Event OnIdle');
  104. end;
  105.  
  106. procedure TMainForm.ApplicationEventsMessage(var Msg: tagMSG;
  107.   var Handled: Boolean);
  108. begin
  109.   lbOnMessage.Items.Add('X:=' + IntToStr(Msg.pt.x) + '|Y:=' + IntToStr(Msg.pt.y));
  110. end;
  111.  
  112. procedure TMainForm.ApplicationEventsMinimize(Sender: TObject);
  113. begin
  114.   lbOther.Items.Add('Event OnMinimize');
  115. end;
  116.  
  117. procedure TMainForm.ApplicationEventsRestore(Sender: TObject);
  118. begin
  119.   lbOther.Items.Add('Event OnRestore');
  120. end;
  121.  
  122. procedure TMainForm.ApplicationEventsShortCut(var Msg: TWMKey;
  123.   var Handled: Boolean);
  124. begin
  125.   lbOther.Items.Add('Event OnShortCut');
  126. end;
  127.  
  128. procedure TMainForm.ApplicationEventsShowHint(var HintStr: String;
  129.   var CanShow: Boolean; var HintInfo: THintInfo);
  130. begin
  131.   lbOther.Items.Add('Event OnShowHint');
  132. end;
  133.  
  134. procedure TMainForm.ActionExecute(Sender: TObject);
  135. begin
  136.   ShowMessage('Action executed');
  137. end;
  138.  
  139. procedure TMainForm.MenuExceptionClick(Sender: TObject);
  140. resourcestring
  141.   sExceptionRaised = 'This is an exception';
  142.  
  143. begin
  144.   raise Exception.Create(sExceptionRaised);
  145. end;
  146.  
  147. end.
  148.