Changeset 28 for trunk/Forms/UFormMain.pas

Timestamp:

Sep 10, 2022, 10:21:48 PM (2 years ago)

Author:

chronos

Message:

• Modified: Do not create all application forms at initialization phase but dynamically.

File:

• trunk/Forms/UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormMain.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ComCtrls;
+  ComCtrls, UFormTables;
 
 type
@@ -30 +30 @@
     procedure FormActivate(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
     procedure SetToolbarHints;
   public
+    FormTables: TFormTables;
     procedure DockInit;
     procedure UpdateInterface;
@@ -47 +50 @@
 
 uses
-  UCore, UFormTables;
+  UCore;
 
 { TFormMain }
@@ -62 +65 @@
   Core.Done;
   Core.PersistentForm1.Save(Self);
+end;
+
+procedure TFormMain.FormCreate(Sender: TObject);
+begin
+  FormTables := TFormTables.Create(nil);
+end;
+
+procedure TFormMain.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(FormTables);
 end;
 
@@ -86 +99 @@
     NewCaption := Core.DbClient.ConnectProfile.Name + ' - ' + NewCaption;
   FormMain.Caption := NewCaption;
+  FormTables.UpdateInterface;
 end;