diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 7a850098e1..2db1a22af9 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -6717,6 +6717,11 @@ begin
   if (NewParent = nil) and (FPopupMode <> pmNone) and
     not FShowOnTaskBar and not IsMainForm then
       NewParent := TQtMainWindow(Application.MainForm.Handle).Widget;
+  {$IFDEF MSWINDOWS}
+  if (NewParent = nil) and (FPopupMode = pmNone) and
+    not FShowOnTaskBar and not IsMainForm then
+      NewParent := TQtMainWindow(Application.MainForm.Handle).Widget;
+  {$ENDIF}
   ChangeParent(NewParent);
 end;
 
diff --git a/lcl/interfaces/qt/qtwsforms.pp b/lcl/interfaces/qt/qtwsforms.pp
index 8f17f0e398..00b4cea9fa 100644
--- a/lcl/interfaces/qt/qtwsforms.pp
+++ b/lcl/interfaces/qt/qtwsforms.pp
@@ -200,7 +200,7 @@ begin
      (Application.MainForm.HandleAllocated) and
      (Application.MainForm <> AForm) then
   begin
-    if (AForm.ShowInTaskBar in [stDefault, stNever])
+    if (AForm.ShowInTaskBar = stNever)
        {$ifdef HASX11}
        {QtTool have not minimize button !}
        and (not (AForm.BorderStyle in [bsSizeToolWin, bsToolWindow]) and