From dfb5d67e48dd971d018ea0df968ba5547608a91f Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 26 Nov 2009 04:20:03 +0000
Subject: [PATCH] win32: fix minimize of application where there is no main
 form or it has not handle yet

git-svn-id: trunk@22781 -
---
 lcl/interfaces/win32/win32callback.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index b6534a67f8..6be0085da0 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -2487,8 +2487,11 @@ begin
         SizeType := WParam or Size_SourceIsInterface;
         if Window = TWin32WidgetSet(WidgetSet).AppHandle then
         begin
-          lWinControl := Application.MainForm;
-          Window := Application.MainForm.Handle;
+          if Assigned(Application.MainForm) and Application.MainForm.HandleAllocated then
+          begin
+            lWinControl := Application.MainForm;
+            Window := Application.MainForm.Handle;
+          end;
         end;
         if IsIconic(Window) then
         begin