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

LCL: Implements DBCombobox change

Browse Source 
git-svn-id: trunk@57660 -
This commit is contained in:
jesus 2018-04-17 05:49:27 +00:00
parent ea3e0c96cc
commit 4662045bfa
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/dbctrls.pp
View File

@ -736,6 +736,7 @@ Type
TDBComboBox = class(TCustomDBComboBox) TDBComboBox = class(TCustomDBComboBox)
protected protected
procedure Change; override;
procedure DataChange(Sender: TObject); override; procedure DataChange(Sender: TObject); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: char); override; procedure KeyPress(var Key: char); override;

16
lcl/include/dbcombobox.inc
View File

@ -17,6 +17,22 @@ begin
FDataLink.Field.Text := Text; FDataLink.Field.Text := Text;
end; end;
procedure TDBComboBox.Change;
begin
try
if FDataLink.CanModify then begin
FDataLink.OnDataChange := nil;
if FDataLink.Edit then begin
FDataLink.Field.AsString := Text;
FDatalink.Modified;
end;
FDataLink.OnDataChange := @Datachange;
end;
finally
inherited Change;
end;
end;
procedure TDBComboBox.DataChange(Sender: TObject); procedure TDBComboBox.DataChange(Sender: TObject);
var var
DataLinkField: TField; DataLinkField: TField;