From b5026985e2d2054d074564f1de26b25a08700d2c Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 22 Jun 2009 08:46:31 +0000
Subject: [PATCH] lcl: TCustomForm - handle CM_RELEASE message for
 compatibility with VCL applications

git-svn-id: trunk@20711 -
---
 lcl/forms.pp               | 1 +
 lcl/include/customform.inc | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/lcl/forms.pp b/lcl/forms.pp
index 117cff5e9b..0d40cdb23e 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -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;
diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index 4b4e10b3cd..1a18bd4d6a 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -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