diff options
| author | Andrew Haines <andrewd207@aol.com> | 2015-02-01 09:37:07 -0500 |
|---|---|---|
| committer | Andrew Haines <andrewd207@aol.com> | 2015-02-01 09:37:07 -0500 |
| commit | def6be738e34d5ff5d4679a96d25c137aac31e31 (patch) | |
| tree | ae93f9c8ab2eeb0fcb4722669237b9955e03bae6 /src/corelib/fpg_widget.pas | |
| parent | fd68cfe060b6c51ef515e61931474e1a088e1ca9 (diff) | |
| download | fpGUI-def6be738e34d5ff5d4679a96d25c137aac31e31.tar.xz | |
Changes to allow modal windows to have owners.
Diffstat (limited to 'src/corelib/fpg_widget.pas')
| -rw-r--r-- | src/corelib/fpg_widget.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/corelib/fpg_widget.pas b/src/corelib/fpg_widget.pas index 8fb68a04..1f9bda21 100644 --- a/src/corelib/fpg_widget.pas +++ b/src/corelib/fpg_widget.pas @@ -503,7 +503,7 @@ begin inherited Create(AOwner); - if (AOwner <> nil) and (AOwner is TfpgWidget) then + if (AOwner <> nil) and (AOwner is TfpgWidget) and (not (WindowType in [wtModalForm, wtPopup])) {and not InheritsFrom(TfpgForm)} then begin Parent := TfpgWidget(AOwner); FTabOrder := AOwner.ComponentCount; |