From 5ee47f57717df8d350d8b3e8ee9a98531ae10fc3 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 10 May 2010 06:45:38 +0000
Subject: [PATCH] Qt: releasecapture if widget is going to be disabled.

git-svn-id: trunk@25286 -
---
 lcl/interfaces/qt/qtwidgets.pas | 2 ++
 1 file changed, 2 insertions(+)

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;