paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 06:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@18182 -
This commit is contained in:
paul 2009-01-07 09:14:18 +00:00
parent 0bdc86d766
commit e65435e6ab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32callback.inc
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