From 28b4ed797c3bf1c36354742b7b77928e23ddcbca Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sun, 27 Jan 2013 08:06:15 +0000
Subject: [PATCH] LCL: reduce calls of PopupMenu property getter. issue #23336

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

diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 97ea051a89..63675c0b43 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -5624,10 +5624,12 @@ function TWinControl.DoKeyDownBeforeInterface(var Message: TLMKey; IsRecurseCall
   function IsShortCut: Boolean;
   var
     AParent: TWinControl;
+    APopupMenu: TPopupMenu;
   begin
     Result := False;
     // check popup menu
-    if Assigned(PopupMenu) and PopupMenu.IsShortCut(Message) then
+    APopupMenu := PopupMenu;
+    if Assigned(APopupMenu) and APopupMenu.IsShortCut(Message) then
       Exit(True);
 
     if IsRecurseCall then