[FMX] Combobox per Code mit Daten füllen

[Devil1925]

Mein Bisheriger Versuch sieht folgendermaßen aus und funktioniert leider nicht, kann mir da jemand verraten, wo ich da meinen Fatalen Fehler mache?

(Ich vermute irgendwo in der zuweisung Link zu Combobox)

Delphi-Quellcode:

procedure TForm14.Button2Click(Sender: TObject);
var BS:TBindSourceDB;
    CB:TCombobox;
    Link:TLinkListControlToField;
    Query:TUniQuery;
begin
  Query := TUniQuery.Create(Self);
  Query.Connection := Conn;
  Query.SQL.Text := 'Select * from Lieferan';
  Query.Open;


  BS := TBindSourceDB.Create(Self);
  BS.DataSet := Query;

  CB := TCombobox.Create(Rectangle1);
  CB.Parent := Rectangle1;

  Link := TLinkListControlToField.Create(Self);
  Link.AutoActivate := True;
  Link.Category := 'Schnelle Bindung';
  Link.Control := CB;
  Link.DataSource := BS;
  Link.FieldName := 'Name1';

  BS.DataSet.Open;
end;

[Sherlock]

Du musst Dir eventuell einen Weg ausdenken, die ComboBoxen zu identifizieren, aber das ist eigentlich fast schon trivial über Tag oder TagString lösbar.

Sherlock

[Aviator]

Zitat von Sherlock:

Du musst Dir eventuell einen Weg ausdenken, die ComboBoxen zu identifizieren, aber das ist eigentlich fast schon trivial über Tag oder TagString lösbar.

Sherlock

Ich glaube er meint eher, wie er aus einem Eintrag den eigentlichen Datensatz aus der Query wiederfinden kann. Bei der VCL hätte man sowas mit den Items.Objects der ComboBox gemacht. Ob das bei FMX gleich/ähnlich ist weiß ich allerdings nicht.