paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 22:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: TCustomForm - handle CM_RELEASE message for compatibility with VCL applications

Browse Source 
git-svn-id: trunk@20711 -
This commit is contained in:
paul 2009-06-22 08:46:31 +00:00
parent 7a0a4d2038
commit b5026985e2
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -462,6 +462,7 @@ type
procedure CMAppShowBtnGlyphChanged(var Message: TLMessage); message CM_APPSHOWBTNGLYPHCHANGED;
procedure CMAppShowMenuGlyphChanged(var Message: TLMessage); message CM_APPSHOWMENUGLYPHCHANGED;
procedure CMIconChanged(var Message: TLMessage); message CM_ICONCHANGED;
procedure CMRelease(var Message: TLMessage); message CM_RELEASE;
procedure AddHandler(HandlerType: TFormHandlerType;
const Handler: TMethod; AsLast: Boolean);
procedure RemoveHandler(HandlerType: TFormHandlerType;

5
lcl/include/customform.inc
View File

@ -638,6 +638,11 @@ begin
IconChanged(Self);
end;
procedure TCustomForm.CMRelease(var Message: TLMessage);
begin
Free;
end;
procedure TCustomForm.AddHandler(HandlerType: TFormHandlerType;
const Handler: TMethod; AsLast: Boolean);
begin