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
This commit is contained in:
alexs75 2024-09-11 14:18:34 +00:00
parent 2a965808d4
commit 5609399247

View File

@ -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;