From d802e5bb5f80ce29568d3c905908c29b8c7e1e59 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 18 Dec 2017 23:12:15 +0000
Subject: [PATCH] LCL: Call FDatalink.Edit when TCustomDBComboBox changes.
 Issue #29505, patch from a.ramos.

git-svn-id: trunk@56789 -
---
 lcl/include/customdbcombobox.inc | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lcl/include/customdbcombobox.inc b/lcl/include/customdbcombobox.inc
index 706cd6b00e..9427e51b6d 100644
--- a/lcl/include/customdbcombobox.inc
+++ b/lcl/include/customdbcombobox.inc
@@ -34,8 +34,15 @@ end;
 
 procedure TCustomDBComboBox.Change;
 begin
-  if FDataLink.CanModify then
+  FDataLink.OnDataChange := nil;
+  try
+  if FDataLink.CanModify then begin
+    FDataLink.Edit;
     FDataLink.Modified;
+    end;
+  finally
+    FDataLink.OnDataChange := @DataChange;
+  end;
   inherited Change;
 end;