diff --git a/lcl/interfaces/qt/qtobject.inc b/lcl/interfaces/qt/qtobject.inc
index feb734836e..7e90c66593 100644
--- a/lcl/interfaces/qt/qtobject.inc
+++ b/lcl/interfaces/qt/qtobject.inc
@@ -100,7 +100,8 @@ end;
  ------------------------------------------------------------------------------}
 procedure TQtWidgetSet.AppRun(const ALoop: TApplicationMainLoop);
 begin
-  QApplication_Exec;
+  if Assigned(ALoop) then ALoop;
+  //QApplication_Exec;
 end;
 
 {------------------------------------------------------------------------------
diff --git a/lcl/interfaces/qt/qtwsforms.pp b/lcl/interfaces/qt/qtwsforms.pp
index a5defe513c..cd606afd08 100644
--- a/lcl/interfaces/qt/qtwsforms.pp
+++ b/lcl/interfaces/qt/qtwsforms.pp
@@ -170,9 +170,11 @@ begin
 
   QtMainWindow.SetWindowTitle(@Str);
 
-  SetQtWindowBorderStyle(QtMainWindow, TCustomForm(AWinControl).BorderStyle);
-
-  SetQtBorderIcons(QtMainWindow, TCustomForm(AWinControl).BorderIcons);
+  if not (csDesigning in TCustomForm(AWinControl).ComponentState) then
+  begin
+    SetQtWindowBorderStyle(QtMainWindow, TCustomForm(AWinControl).BorderStyle);
+    SetQtBorderIcons(QtMainWindow, TCustomForm(AWinControl).BorderIcons);
+  end;
 
   // Sets Various Events
   QtMainWindow.AttachEvents;