From 69db61d5a68a4ce6a53e9186af3c4ffad948eb35 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Fri, 7 Nov 2008 15:48:44 +0000
Subject: [PATCH] Qt: Systrayicon popup menu fix. Fixes #12586

git-svn-id: trunk@17266 -
---
 lcl/interfaces/qt/qtwidgets.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 475a2880dc..4b02cbceb6 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -7639,7 +7639,8 @@ end;
 
 procedure TQtMenu.DoPopupClose;
 begin
-  TPopupMenu(FMenuItem.Menu).Close;
+  if Assigned(TPopupMenu(FMenuItem.Menu).OnClose) then
+    TPopupMenu(FMenuItem.Menu).OnClose(TPopupMenu(FMenuItem.Menu));
 end;
 
 procedure TQtMenu.SlotDestroy; cdecl;