Código Delphi [-] procedure TtuForm.tuDataSourceDataChange(Sender: TObject; Field: TField); var dlc: TDBLookupComboBox; begin dlc := tuDBLookupComboBox; dlc.KeyValue := TDataSource(Sender).DataSet.FieldByName(dlc.ListField).Value; end;
procedure TtuForm.tuDataSourceDataChange(Sender: TObject; Field: TField); var dlc: TDBLookupComboBox; begin dlc := tuDBLookupComboBox; dlc.KeyValue := TDataSource(Sender).DataSet.FieldByName(dlc.ListField).Value; end;