paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-09 23:05:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

TCustomTabControl: don't check for parent in call to FindNextControl in ActivateFirstControlOnPage. Part of issue #40775.

Browse Source
This commit is contained in:
Bart 2024-02-25 13:25:14 +01:00
parent 641a76447b
commit 5e54b2f921
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/include/customnotebook.inc
View File

@ -783,7 +783,7 @@ begin
//don't steal focus if a control outside is ActiveControl //don't steal focus if a control outside is ActiveControl
if (Self = ActiveControl) or Self.ContainsControl(ActiveControl) then if (Self = ActiveControl) or Self.ContainsControl(ActiveControl) then
begin begin
C := APage.FindNextControl(Self, True, True, True); C := APage.FindNextControl(Self, True, True, False);
if Assigned(C) then if Assigned(C) then
ParentForm.ActiveControl := C; ParentForm.ActiveControl := C;
end; end;