mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 17:29:31 +02:00
win32: switch tabsheets even if pagecontrol is placed on another controls (bug #0012931)
git-svn-id: trunk@18182 -
This commit is contained in:
parent
0bdc86d766
commit
e65435e6ab
@ -2621,7 +2621,7 @@ begin
|
|||||||
if (Owner is TCustomForm) or (Owner is TCustomFrame) then
|
if (Owner is TCustomForm) or (Owner is TCustomFrame) then
|
||||||
begin
|
begin
|
||||||
// ask form about control under mouse. we need TWinControl
|
// 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
|
if (Control <> nil) and not (Control is TWinControl) then
|
||||||
Control := Control.Parent;
|
Control := Control.Parent;
|
||||||
end
|
end
|
||||||
|
Loading…
Reference in New Issue
Block a user