diff --git a/lcl/interfaces/gtk2/gtk2proc.inc b/lcl/interfaces/gtk2/gtk2proc.inc
index 8058fed2f7..84f0468758 100644
--- a/lcl/interfaces/gtk2/gtk2proc.inc
+++ b/lcl/interfaces/gtk2/gtk2proc.inc
@@ -824,10 +824,12 @@ begin
   gtk_window_set_modal(GtkWindow, true);
   {$ENDIF}
 
+  gtk_window_present(GtkWindow);
+
   if (AForm <> nil) and (AForm.ShowInTaskBar <> stAlways) and
     (gtk_window_get_type_hint(GtkWindow) <> GDK_WINDOW_TYPE_HINT_DIALOG) then
     gtk_window_set_skip_taskbar_hint(GtkWindow, True);
-  gtk_window_present(GtkWindow);
+
   {$IFDEF VerboseTransient}
   DebugLn('TGtkWidgetSet.ShowModal ',Sender.ClassName);
   {$ENDIF}