1 files changed, 2 insertions, 0 deletions
diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas
index 5add81ad..28149f8f 100644
--- a/src/corelib/gfxbase.pas
+++ b/src/corelib/gfxbase.pas
@@ -349,6 +349,7 @@ type
 
   TfpgApplicationBase = class(TObject)
   private
+    FMainForm: TfpgWindowBase;
     FTopModalForm: TfpgWindowBase;
   protected
     FIsInitialized: Boolean;
@@ -356,6 +357,7 @@ type
     constructor Create(const AParams: string); virtual; abstract;
     property    IsInitialized: boolean read FIsInitialized;
     property    TopModalForm: TfpgWindowBase read FTopModalForm write FTopModalForm;
+    property    MainForm: TfpgWindowBase read FMainForm write FMainForm;
   end;