From 36c308d1f6a8f78c8ca56510633510645062b5dd Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Sun, 10 Mar 2024 18:56:32 +0100
Subject: [PATCH] TCustomTabControl: fix not firing OnChange after commit
 e5a63799.

---
 lcl/include/customnotebook.inc | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lcl/include/customnotebook.inc b/lcl/include/customnotebook.inc
index ce17ecee40..213c6d2efd 100644
--- a/lcl/include/customnotebook.inc
+++ b/lcl/include/customnotebook.inc
@@ -1063,9 +1063,8 @@ begin
     //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)]);
     ParentForm := GetParentForm(Self);
-    if not (Assigned(ParentForm) and Assigned(APage) and APage.Visible and APage.Enabled and (APage.ControlCount > 0)) then
-      Exit;
-    MaybeSelectFirstControlOnPage(APage);
+    if (Assigned(ParentForm) and Assigned(APage) and APage.Visible and APage.Enabled and (APage.ControlCount > 0)) then
+      MaybeSelectFirstControlOnPage(APage);
 
     DoChange;
   end;