From ece2fcadca53e5e8db06af72a8ec0e7482bd3aab Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 24 Sep 2009 08:50:50 +0000
Subject: [PATCH] lcl: be sure that popup menu will notify a control on
 destruction

git-svn-id: trunk@21843 -
---
 lcl/include/control.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index bf07069f44..b001293cee 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -3539,7 +3539,9 @@ end;
 ------------------------------------------------------------------------------}
 procedure TControl.SetPopupMenu(Value: TPopupMenu);
 begin
-  FPopupMenu :=  Value;
+  FPopupMenu := Value;
+  if FPopupMenu <> nil then
+    FPopupMenu.FreeNotification(Self);
 end;
 
 {------------------------------------------------------------------------------