From cb08781b433bedd1e5b18fe7d74ae57177a27024 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 6 Sep 2003 18:38:06 +0000
Subject: [PATCH] fixed recreating handle after showmodal

git-svn-id: trunk@4575 -
---
 lcl/include/customform.inc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index cab929fa0e..85ad61bd95 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -1404,7 +1404,8 @@ begin
       until false;
       
       Result := ModalResult;
-      if GetActiveWindow <> Handle then ActiveWindow := 0;
+      if HandleAllocated and (GetActiveWindow <> Handle) then
+        ActiveWindow := 0;
     finally
       Hide;
     end;
@@ -1429,6 +1430,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.113  2003/09/06 18:38:06  mattias
+  fixed recreating handle after showmodal
+
   Revision 1.112  2003/08/31 17:30:49  mattias
   fixed TControl painting for win32