diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 8941ff66ce..7cc48f06fd 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -3482,6 +3482,8 @@ end;
 
 procedure TQtWidget.setEnabled(p1: Boolean);
 begin
+  if not p1 and (HWND(Self) = GetCapture) then
+    ReleaseCapture;
   QWidget_setEnabled(Widget, p1);
 end;