diff options
Diffstat (limited to 'src/gui')
| -rw-r--r-- | src/gui/fpg_form.pas | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/gui/fpg_form.pas b/src/gui/fpg_form.pas index b95f194a..85ce5b49 100644 --- a/src/gui/fpg_form.pas +++ b/src/gui/fpg_form.pas @@ -35,6 +35,8 @@ type TFormCloseEvent = procedure(Sender: TObject; var CloseAction: TCloseAction) of object; TFormCloseQueryEvent = procedure(Sender: TObject; var CanClose: boolean) of object; + { TfpgBaseForm } + TfpgBaseForm = class(TfpgWidget) private FFullScreen: boolean; @@ -83,6 +85,7 @@ type property OnShow: TNotifyEvent read FOnShow write FOnShow; public constructor Create(AOwner: TComponent); override; + destructor Destroy; override; procedure AfterConstruction; override; procedure BeforeDestruction; override; procedure AfterCreate; virtual; @@ -244,6 +247,12 @@ begin FIsContainer := True; end; +destructor TfpgBaseForm.Destroy; +begin + fpgApplication.RemoveWindowFromModalStack(Self); + inherited Destroy; +end; + procedure TfpgBaseForm.AfterCreate; begin // for the user |