mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-08 21:06:07 +02:00
TCustomTabControl: fix not firing OnChange after commit e5a63799
.
This commit is contained in:
parent
01e032c3fa
commit
36c308d1f6
@ -1063,8 +1063,7 @@ begin
|
|||||||
//debugln(['TCustomTabControl.Change: Self=',DbgSName(Self),', APage',DbgSName(APage)]);
|
//debugln(['TCustomTabControl.Change: Self=',DbgSName(Self),', APage',DbgSName(APage)]);
|
||||||
//if Assigned(APage) then debugln(['APage.Visible=',APage.Visible,', APage.Enabled=',APage.Enabled,', (APage.ControlCount > 0)=',(APage.ControlCount > 0)]);
|
//if Assigned(APage) then debugln(['APage.Visible=',APage.Visible,', APage.Enabled=',APage.Enabled,', (APage.ControlCount > 0)=',(APage.ControlCount > 0)]);
|
||||||
ParentForm := GetParentForm(Self);
|
ParentForm := GetParentForm(Self);
|
||||||
if not (Assigned(ParentForm) and Assigned(APage) and APage.Visible and APage.Enabled and (APage.ControlCount > 0)) then
|
if (Assigned(ParentForm) and Assigned(APage) and APage.Visible and APage.Enabled and (APage.ControlCount > 0)) then
|
||||||
Exit;
|
|
||||||
MaybeSelectFirstControlOnPage(APage);
|
MaybeSelectFirstControlOnPage(APage);
|
||||||
|
|
||||||
DoChange;
|
DoChange;
|
||||||
|
Loading…
Reference in New Issue
Block a user