diff --git a/lcl/interfaces/qt/qtwsforms.pp b/lcl/interfaces/qt/qtwsforms.pp
index 97eb224c44..8c984ef745 100644
--- a/lcl/interfaces/qt/qtwsforms.pp
+++ b/lcl/interfaces/qt/qtwsforms.pp
@@ -597,7 +597,10 @@ begin
         X11Raise(QWidget_winID(Widget.Widget));
     end else
     if (TForm(AWinControl).FormStyle = fsSplash) then
+    begin
       QWidget_repaint(Widget.GetContainerWidget);
+      QCoreApplication_processEvents(QEventLoopExcludeUserInputEvents);
+    end;
   end;
   {$ENDIF}
 end;