From abdada70fe85976621a1f369f6ce810ad2018449 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 31 May 2015 17:13:15 +0000
Subject: [PATCH] LCL: Don't call EditButton.EditChange while component is
 loading.

git-svn-id: trunk@49234 -
---
 lcl/editbtn.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/editbtn.pas b/lcl/editbtn.pas
index 657bf8fb3d..874c63c4d3 100644
--- a/lcl/editbtn.pas
+++ b/lcl/editbtn.pas
@@ -1015,7 +1015,8 @@ end;
 
 procedure TCustomEditButton.InternalOnEditChange(Sender: TObject);
 begin
-  EditChange;
+  if not (csLoading in ComponentState) then
+    EditChange;
 end;
 
 procedure TCustomEditButton.InternalOnEditClick(Sender: TObject);