From e8969ac8d4c439f33e38ba9c902f2ab9dbf5274c Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Wed, 14 Jan 2009 19:45:25 +0000
Subject: [PATCH] Qt: secure QObject from accidental destroy if we have pending
 events.

git-svn-id: trunk@18290 -
---
 lcl/interfaces/qt/qtobjects.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/qt/qtobjects.pas b/lcl/interfaces/qt/qtobjects.pas
index 37931e4ec5..172002767f 100644
--- a/lcl/interfaces/qt/qtobjects.pas
+++ b/lcl/interfaces/qt/qtobjects.pas
@@ -741,8 +741,12 @@ end;
 procedure TQtObject.Release;
 begin
   if InEvent then
-    FReleaseInEvent := True
-  else
+  begin
+    {$IFDEF USE_QT_44}
+    FDeleteLater := True;
+    {$ENDIF}
+    FReleaseInEvent := True;
+  end else
     Free;
 end;