From 713d21e4424b294912069fbf4a8724d17c960ed2 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 9 Oct 2012 11:40:08 +0000
Subject: [PATCH] fix initial state MDICloseButton after create main form

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2546 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxmdi.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/rx/rxmdi.pas b/components/rx/rxmdi.pas
index 52c9384e9..fbab20eb7 100644
--- a/components/rx/rxmdi.pas
+++ b/components/rx/rxmdi.pas
@@ -116,6 +116,7 @@ type
     procedure SetTaskPanel(AValue: TRxMDITasks);
   protected
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure Loaded; override;
   public
     constructor Create(TheOwner: TComponent); override;
     procedure ShowWindow(F:TForm);
@@ -278,6 +279,12 @@ begin
     FTaskPanel:=nil;
 end;
 
+procedure TRxMDIPanel.Loaded;
+begin
+  inherited Loaded;
+  CurrentChildWindow:=nil;
+end;
+
 constructor TRxMDIPanel.Create(TheOwner: TComponent);
 begin
   inherited Create(TheOwner);