paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

RxFPC:fix AV on close child window

Browse Source 
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
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/trunk/rxcontrols/rxmdi.pas
View File

@ -403,6 +403,8 @@ begin
if (FTaskPanel.Components[i] is TRxMDIButton) and (TRxMDIButton(FTaskPanel.Components[i]).NavForm = Form) then if (FTaskPanel.Components[i] is TRxMDIButton) and (TRxMDIButton(FTaskPanel.Components[i]).NavForm = Form) then
TRxMDIButton(FTaskPanel.Components[i]).FActiveControl:=nil; TRxMDIButton(FTaskPanel.Components[i]).FActiveControl:=nil;
end; end;
if FCurrentChildWindow = Form then
FCurrentChildWindow := nil;
end; end;
end; end;