paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 13:20:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TScreen.RemoveForm more clean up

Browse Source 
git-svn-id: trunk@24414 -
This commit is contained in:
mattias 2010-04-04 23:09:12 +00:00
parent 3166de2bc2
commit b45e6c73ea
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/screen.inc
View File

@ -740,6 +740,10 @@ begin
FCustomForms.Remove(AForm); FCustomForms.Remove(AForm);
FCustomFormsZOrdered.Remove(AForm); FCustomFormsZOrdered.Remove(AForm);
FFormList.Remove(AForm); FFormList.Remove(AForm);
if FFocusedForm=AForm then FFocusedForm:=nil;
if FLastActiveCustomForm=AForm then FLastActiveCustomForm:=nil;
if FActiveForm=AForm then FActiveForm:=nil;
if FActiveCustomForm=AForm then FActiveCustomForm:=nil;
Application.UpdateVisible; Application.UpdateVisible;
end; end;