From dd97a09f46df025e8f8886f30437e41bfce01553 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 29 Mar 2010 13:01:33 +0000
Subject: [PATCH] LCL: TCustomForm.ShowModal() use
 LCLIntf.IsWindow(ActiveWindow) instead ActiveWindow <> 0 for check, since
 ActiveWindow can dissappear in the meantime.

git-svn-id: trunk@24286 -
---
 lcl/include/customform.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index f317a73d67..6ee4dd3215 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -2504,7 +2504,7 @@ begin
       else
         Screen.FFocusedForm := nil;
       RestoreFocusState(SavedFocusState);
-      if ActiveWindow <> 0 then
+      if LCLIntf.IsWindow(ActiveWindow) then
         SetActiveWindow(ActiveWindow);
       Exclude(FFormState, fsModal);
     end;