From 5609399247bd135c8a570cc57d72c3672dbb7a8e Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 11 Sep 2024 14:18:34 +0000
Subject: [PATCH] RxFPC:fix AV on close child window

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

diff --git a/components/rx/trunk/rxcontrols/rxmdi.pas b/components/rx/trunk/rxcontrols/rxmdi.pas
index fce44e284..f467f3a4d 100644
--- a/components/rx/trunk/rxcontrols/rxmdi.pas
+++ b/components/rx/trunk/rxcontrols/rxmdi.pas
@@ -403,6 +403,8 @@ begin
       if (FTaskPanel.Components[i] is TRxMDIButton) and (TRxMDIButton(FTaskPanel.Components[i]).NavForm = Form) then
         TRxMDIButton(FTaskPanel.Components[i]).FActiveControl:=nil;
     end;
+    if FCurrentChildWindow = Form then
+      FCurrentChildWindow := nil;
   end;
 end;