win32: switch tabsheets even if pagecontrol is placed on another controls (bug #0012931)

git-svn-id: trunk@18182 -
This commit is contained in:
paul 2009-01-07 09:14:18 +00:00
parent 0bdc86d766
commit e65435e6ab

View File

@ -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