Situation:
1 Form with 1 UniDBLookupCombobox and 1 button.
When click on the button a second UniDBLookupCombobox is created and both lookupcomboboxs are initialized
procedure TFrmTest.UniButton1Click(Sender: TObject);
var
lTblDs : TDataset;
lTblLookupDs : TDataset;
lDataSourceLookup : TDataSource;
lComboEdt: TUniDBLookupComboBox;
begin
lTblDs := TDmMain.Instance.GetTabel(1);
//DataSourceTbl is TDataSource designtime
DataSourceTbl.DataSet := lTblDs;
lTblLookupDs := TDmMain.Instance.GetLookupTabel(2);
//Initialize lCombo Created at designtime
lCombo.DataSource := DataSourceTbl;
lCombo.KeyField := ucFLD_DOM_ID;
lCombo.ListField := ucFLD_DOM_TEXT;
lCombo.ListSource := lLstDs;
lCombo.DataField := ucFLD_TBLDEF_TYPE_DM;
lCombo.ForceSelection := True;
lCombo.Update;
//Initialize lComboEdt Created at runtime
lDataSourceLookup := TDataSource.Create(self);
lDataSourceLookup.DataSet := lTblLookupDs;
lComboEdt:= TUniDBLookupComboBox.Create(Self);
lComboEdt.Parent := Self;
lComboEdt.Top := lCombo.Top+30;
lComboEdt.Left := lCombo.Left;
lComboEdt.DataSource := DataSourceTbl;
lComboEdt.KeyField := 'ID';
lComboEdt.ListField := 'NAME';
lComboEdt.ListSource := lDataSourceLookup;
lComboEdt.DataField := 'CLIENT_ID';
lComboEdt.ForceSelection := True;
lComboEdt.Show;
lComboEdt.Update;
//Extra added because this is also in dfm at designtime
lComboEdt.ListFieldIndex := 0;
lComboEdt.TabOrder := 1;
lComboEdt.Color := clWindow;
lComboEdt.FieldLabelFont.Name := 'Segoe UI';
lComboEdt.Update;
end;
lCombo is shown correct. lComboEdt do not display the text. Why?