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

TCustomForm.WMDestroy does not Free anymore

Browse Source 
git-svn-id: trunk@1369 -
This commit is contained in:
mattias 2002-02-09 01:48:20 +00:00
parent 060d6eba35
commit 79a8d32f06
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/wincontrol.inc
View File

@ -1927,7 +1927,7 @@ end;
procedure TWinControl.WMDestroy(var Message: TLMDestroy); procedure TWinControl.WMDestroy(var Message: TLMDestroy);
begin begin
Assert(False, Format('Trace: [TWinControl.LMDestroy] %s', [ClassName])); Assert(False, Format('Trace: [TWinControl.LMDestroy] %s', [ClassName]));
//writeln('TWinControl.WMDestroy ',Name,':',ClassName);
// Our widget/window doesn't exist anymore // Our widget/window doesn't exist anymore
FHandle := 0; FHandle := 0;
end; end;
@ -2511,6 +2511,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.104 2002/11/30 08:35:42 mattias
TCustomForm.WMDestroy does not Free anymore
Revision 1.103 2002/11/29 15:14:48 mattias Revision 1.103 2002/11/29 15:14:48 mattias
replaced many invalidates by invalidaterect replaced many invalidates by invalidaterect