From d248fcf4af36f154f3bcd5ecbcdc3ecc891d690c Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Wed, 23 Mar 2005 20:45:18 +0000
Subject: [PATCH] "fix" for opendialog being closed after showing message
 dialog

git-svn-id: trunk@7017 -
---
 lcl/interfaces/win32/win32wscontrols.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/interfaces/win32/win32wscontrols.pp b/lcl/interfaces/win32/win32wscontrols.pp
index a13fa471f9..f1d9df84ae 100644
--- a/lcl/interfaces/win32/win32wscontrols.pp
+++ b/lcl/interfaces/win32/win32wscontrols.pp
@@ -360,6 +360,9 @@ begin
   if AccelTable <> 0 then
     DestroyAcceleratorTable(AccelTable);
   DestroyWindow(Handle);
+  { TODO: HACK: next line "fixes" opendialogs being closed after 
+    closing message dialog }
+  TWin32WidgetSet(InterfaceObject).HandleEvents;
 end;
 
 procedure TWin32WSWinControl.Invalidate(const AWinControl: TWinControl);