Commit 14e5f42f authored by Juha Manninen's avatar Juha Manninen
Browse files

LCL: Update DataLink better when TDbComboBox item changes. Issue #32383, patch from Stephanie.

git-svn-id: trunk@55894 -
parent 46a644e2
......@@ -35,7 +35,14 @@ end;
procedure TCustomDBComboBox.Change;
begin
FDataLink.Modified;
inherited Change;
try
if FDataLink.CanModify then begin
FDataLink.Field.AsString := Text;
FDatalink.Modified;
end;
finally
inherited Change;
end;
end;
function TCustomDBComboBox.GetReadOnly: Boolean;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment