diff --git a/lcl/interfaces/qt/qtwsforms.pp b/lcl/interfaces/qt/qtwsforms.pp
index 2a470cc02a..ff86a65a4d 100644
--- a/lcl/interfaces/qt/qtwsforms.pp
+++ b/lcl/interfaces/qt/qtwsforms.pp
@@ -594,7 +594,7 @@ begin
   if Assigned(Application) and not Application.Terminated then
   begin
     if AWinControl.HandleObjectShouldBeVisible or (fsModal in TCustomForm(AWinControl).FormState) then
-      QCoreApplication_processEvents(QEventLoopExcludeUserInputEvents);
+      QCoreApplication_processEvents(QEventLoopAllEvents);
   end;
 
   if (Application.TaskBarBehavior = tbSingleButton) or
diff --git a/lcl/interfaces/qt5/qtwsforms.pp b/lcl/interfaces/qt5/qtwsforms.pp
index 8ac655b159..e8734f8b79 100644
--- a/lcl/interfaces/qt5/qtwsforms.pp
+++ b/lcl/interfaces/qt5/qtwsforms.pp
@@ -583,8 +583,9 @@ begin
   Widget.EndUpdate;
 
   {$IFDEF HASX11}
-  if AWinControl.HandleObjectShouldBeVisible then
-    QCoreApplication_processEvents(QEventLoopExcludeUserInputEvents);
+  if AWinControl.HandleObjectShouldBeVisible or
+    (fsModal in TCustomForm(AWinControl).FormState) then
+    QCoreApplication_processEvents(QEventLoopAllEvents);
 
   if (Application.TaskBarBehavior = tbSingleButton) or
     (TForm(AWinControl).ShowInTaskBar <> stDefault) then