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

LCL: TCustomForm.BeforeDestruction calling inherited

Browse Source 
git-svn-id: trunk@26714 -
This commit is contained in:
mattias 2010-07-17 12:23:22 +00:00
parent ed89031721
commit 34fde7fc8c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customform.inc
View File

@ -90,9 +90,11 @@ end;
------------------------------------------------------------------------------}
procedure TCustomForm.BeforeDestruction;
begin
// set csDestroying
inherited BeforeDestruction;
//debugln(['TCustomForm.BeforeDestruction ',DbgSName(Self),' ',csDestroying in ComponentState]);
// EndWrite will happen in the destructor
GlobalNameSpace.BeginWrite;
Destroying;
Screen.FSaveFocusedList.Remove(Self);
RemoveFixupReferences(Self, '');
if FormStyle <> fsMDIChild then Hide;