1 files changed, 3 insertions, 0 deletions
diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas
index 0d85a642..2b677e57 100644
--- a/src/corelib/gfxbase.pas
+++ b/src/corelib/gfxbase.pas
@@ -344,11 +344,14 @@ type
 
 
   TfpgApplicationBase = class(TObject)
+  private
+    FTopModalForm: TfpgWindowBase;
   protected
     FIsInitialized: Boolean;
   public
     constructor Create(const AParams: string); virtual; abstract;
     property    IsInitialized: boolean read FIsInitialized;
+    property    TopModalForm: TfpgWindowBase read FTopModalForm write FTopModalForm;
   end;