paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 20:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

TCustomTabControl: don't steal foucus in ActivateFirstControlOnPage. Part of issue #40775.

Browse Source 
(cherry picked from commit f3aa0586d9)
This commit is contained in:
Bart 2024-02-24 14:33:16 +01:00 committed by Maxim Ganetsky
parent 08788350f6
commit 31e54e32fa
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customnotebook.inc
View File

@ -772,13 +772,16 @@ end;
procedure TCustomTabControl.ActivateFirstControlOnPage(APage: TCustomPage);
var
ParentForm: TCustomForm;
C: TWinControl;
C, ActiveControl: TWinControl;
begin
ParentForm := GetParentForm(Self);
//Debugln(['TCustomTabControl.ActivateFirstControl: Self=',DbgSName(Self),', APage=',DbgSName(APage),', ParentForm=',DbgSName(ParentForm)]);
if not (Assigned(APage) and Assigned(ParentForm) and APage.Visible and APage.Enabled and (APage.ControlCount > 0)) then
Exit;
//Debugln(['TCustomTabControl.ActivateFirstControl: APage.Visible=',APage.Visible,', APage.Enabled=',APage.Enabled,', (APage.ControlCount > 0)=', (APage.ControlCount > 0)]);
ActiveControl := ParentForm.ActiveControl;
//don't steal focus if a control outside is ActiveControl
if (Self = ActiveControl) or Self.ContainsControl(ActiveControl) then
begin
C := APage.FindNextControl(Self, True, True, True);
if Assigned(C) then