home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / frmset2 / page1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-22  |  1.6 KB  |  75 lines
  1. unit Page1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
  7.  
  8. type
  9.   TfPage1 = class(TForm)
  10.     Page1: TLabel;
  11.     CheckBox1: TCheckBox;
  12.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  13.     procedure FormCreate(Sender: TObject);
  14.     procedure FormDestroy(Sender: TObject);
  15.     procedure FormDeactivate(Sender: TObject);
  16.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  17.     procedure FormActivate(Sender: TObject);
  18.     procedure FormShow(Sender: TObject);
  19.     procedure FormHide(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. var
  27.   fPage1: TfPage1;
  28.  
  29. implementation
  30.  
  31. {$R *.DFM}
  32.  
  33. procedure TfPage1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  34. begin
  35.    Showmessage('Page 1: Close Query');
  36.    CanClose := CheckBox1.Checked;
  37. end;
  38.  
  39. procedure TfPage1.FormCreate(Sender: TObject);
  40. begin
  41.    ShowMessage('Page 1: Create');
  42. end;
  43.  
  44. procedure TfPage1.FormDestroy(Sender: TObject);
  45. begin
  46.    showmessage('Page 1: Destroy');
  47. end;
  48.  
  49. procedure TfPage1.FormDeactivate(Sender: TObject);
  50. begin
  51.    showmessage('Page 1: Deactivate');
  52. end;
  53.  
  54. procedure TfPage1.FormClose(Sender: TObject; var Action: TCloseAction);
  55. begin
  56.    showmessage('Page 1: Close');
  57. end;
  58.  
  59. procedure TfPage1.FormActivate(Sender: TObject);
  60. begin
  61.    showmessage('Page 1: Activate');
  62. end;
  63.  
  64. procedure TfPage1.FormShow(Sender: TObject);
  65. begin
  66.    showmessage('Page 1: Show');
  67. end;
  68.  
  69. procedure TfPage1.FormHide(Sender: TObject);
  70. begin
  71.    showmessage('Page 1: Hide');
  72. end;
  73.  
  74. end.
  75.