paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-18 20:59:07 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Call FDatalink.Edit when TCustomDBComboBox changes. Issue #29505, patch from a.ramos.

Browse Source 
git-svn-id: trunk@56789 -
This commit is contained in:
juha 2017-12-18 23:12:15 +00:00
parent 175e231938
commit d802e5bb5f
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/customdbcombobox.inc
View File

@ -34,8 +34,15 @@ end;
procedure TCustomDBComboBox.Change; procedure TCustomDBComboBox.Change;
begin begin
if FDataLink.CanModify then FDataLink.OnDataChange := nil;
try
if FDataLink.CanModify then begin
FDataLink.Edit;
FDataLink.Modified; FDataLink.Modified;
end;
finally
FDataLink.OnDataChange := @DataChange;
end;
inherited Change; inherited Change;
end; end;