From d41a4438c16ff185cdc1b0b4bfab83eec3311e46 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Tue, 10 May 2016 19:38:50 +0000
Subject: [PATCH] win32: make r52296 #b33c0dba1b active only in a library.
 Issue #18624

git-svn-id: trunk@52297 -
---
 lcl/interfaces/win32/win32wsmenus.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32wsmenus.pp b/lcl/interfaces/win32/win32wsmenus.pp
index 72d9e6f609..61a74ae790 100644
--- a/lcl/interfaces/win32/win32wsmenus.pp
+++ b/lcl/interfaces/win32/win32wsmenus.pp
@@ -1579,7 +1579,7 @@ const
   );
 begin
   MenuHandle := APopupMenu.Handle;
-  if (Screen.ActiveCustomForm<>nil) and Screen.ActiveCustomForm.HandleAllocated then
+  if IsLibrary and (Screen.ActiveCustomForm<>nil) and Screen.ActiveCustomForm.HandleAllocated then
     WinHandle:=Screen.ActiveCustomForm.Handle
   else
     WinHandle:=Win32WidgetSet.AppHandle;