From e65435e6abffb6d099107a3a50fc0c3dea90fde7 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 7 Jan 2009 09:14:18 +0000
Subject: [PATCH] win32: switch tabsheets even if pagecontrol is placed on
 another controls (bug #0012931)

git-svn-id: trunk@18182 -
---
 lcl/interfaces/win32/win32callback.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index d030027d82..68ca46d1df 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -2621,7 +2621,7 @@ begin
       if (Owner is TCustomForm) or (Owner is TCustomFrame) then
       begin
         // ask form about control under mouse. we need TWinControl
-        Control := Owner.ControlAtPos(P, [capfAllowWinControls]);        
+        Control := Owner.ControlAtPos(P, [capfAllowWinControls, capfRecursive]);
         if (Control <> nil) and not (Control is TWinControl) then
           Control := Control.Parent;
       end