diff --git a/lcl/interfaces/win32/win32proc.pp b/lcl/interfaces/win32/win32proc.pp
index d9eb653df1..3756a6263b 100644
--- a/lcl/interfaces/win32/win32proc.pp
+++ b/lcl/interfaces/win32/win32proc.pp
@@ -948,7 +948,8 @@ var
 begin
   Owner := GetWindow(Handle, GW_OWNER);
   if (Owner <> 0) and (Owner <> PPopupOwnersWindowInfo(Param)^.AppHandle) then
-    PPopupOwnersWindowInfo(Param)^.OwnersList.Add(Pointer(Owner));
+    if (Windows.GetWindowLong(Owner,GWL_STYLE) and WS_VISIBLE<>0) then
+      PPopupOwnersWindowInfo(Param)^.OwnersList.Add(Pointer(Owner));
   Result := True;
 end;