From 78830476ffe049e5603b990b681ed8b9cf960a44 Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Mon, 10 Oct 2016 09:00:22 +0000
Subject: [PATCH] TCustomTabControl: do not call OnChange when setting
 PageIndex/TabIndex by code. Issue #0025554.

git-svn-id: trunk@53089 -
---
 lcl/include/customnotebook.inc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lcl/include/customnotebook.inc b/lcl/include/customnotebook.inc
index f9573a8c63..bfa6f7fed9 100644
--- a/lcl/include/customnotebook.inc
+++ b/lcl/include/customnotebook.inc
@@ -585,8 +585,9 @@ begin
   //debugln('TCustomTabControl.SetPageIndex B ',dbgsName(Self),' AValue=',dbgs(AValue),' fPageIndex=',dbgs(fPageIndex),' PageCount=',dbgs(PageCount),' HandleAllocated=',dbgs(HandleAllocated));
 
   InternalSetPageIndex(AValue);
-  if ([csDesigning, csLoading, csDestroying] * ComponentState = []) then
-    DoChange;
+  //Delphi does not do this. In future we might make this configurable, so for the time being I commented it out
+  //if ([csDesigning, csLoading, csDestroying] * ComponentState = []) then
+  //  DoChange;
 end;
 
 {$IFDEF old}