mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 10:59:19 +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
|
||||
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
|
||||
|
Loading…
Reference in New Issue
Block a user