diff --git a/lcl/interfaces/qt/qtwsdialogs.pp b/lcl/interfaces/qt/qtwsdialogs.pp
index 4ff768c70d..58bff997df 100644
--- a/lcl/interfaces/qt/qtwsdialogs.pp
+++ b/lcl/interfaces/qt/qtwsdialogs.pp
@@ -890,6 +890,9 @@ begin
       X11Raise(QWidget_winID(TQtWidget(AWND).Widget));
   end;
   {$ENDIF}
+  //Since TQtWSColorDialog.CreateHandle returns 0, in TCommonDialog.Close DoClose will not be called,
+  //so call it from here
+  ACommonDialog.DoClose;
 end;
 
 { TQtWSFontDialog }
@@ -967,6 +970,9 @@ begin
       X11Raise(QWidget_winID(TQtWidget(AWND).Widget));
   end;
   {$ENDIF}
+  //Since TQtWSFontDialog.CreateHandle returns 0, in TCommonDialog.Close DoClose will not be called,
+  //so call it from here
+  ACommonDialog.DoClose;
 end;
 
 end.