home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue46 / packages / AppMainFormU.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-05-02  |  1.4 KB  |  73 lines
  1. unit AppMainFormU;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Menus, StdCtrls, ComCtrls;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     MainMenu: TMainMenu;
  12.     MnuFile: TMenuItem;
  13.     MnuLoadModule: TMenuItem;
  14.     MnuExit: TMenuItem;
  15.     PageControl: TPageControl;
  16.     Sheet1: TTabSheet;
  17.     BtnShowExtensibleForm: TButton;
  18.     N1: TMenuItem;
  19.     procedure MnuLoadModuleClick(Sender: TObject);
  20.     procedure MnuExitClick(Sender: TObject);
  21.     procedure BtnShowExtensibleFormClick(Sender: TObject);
  22.     procedure FormShow(Sender: TObject);
  23.     procedure FormHide(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. var
  31.   MainForm: TMainForm;
  32.  
  33. implementation
  34.  
  35. uses
  36.   AppModuleLoadFormU, BaseFormU, AppSupportU;
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TMainForm.MnuLoadModuleClick(Sender: TObject);
  41. begin
  42.   ModuleLoadForm.ShowModal
  43. end;
  44.  
  45. procedure TMainForm.MnuExitClick(Sender: TObject);
  46. begin
  47.   Application.Terminate
  48. end;
  49.  
  50. procedure TMainForm.BtnShowExtensibleFormClick(Sender: TObject);
  51. begin
  52.   with BaseFormClass.Create(Application) do
  53.     try
  54.       ShowModal
  55.     finally
  56.       Free
  57.     end
  58. end;
  59.  
  60. procedure TMainForm.FormShow(Sender: TObject);
  61. begin
  62.   InitializePackageSupport;
  63.   LoadPackagesStoredInRegistry
  64. end;
  65.  
  66. procedure TMainForm.FormHide(Sender: TObject);
  67. begin
  68.   StorePackagesInRegistry;
  69.   FinalizePackageSupport
  70. end;
  71.  
  72. end.
  73.