Combobox Teil 2

[DGL-luke]

Hallo, das ist gar nicht so einfach. Wenn du direkt die Strings vergleichst isses zwar n bisschen langsamer, funktioniert aber zuverlässig:

Delphi-Quellcode:

var
  CBText: string; //da muss die komplette Liste rein
  CBs: array[0..1] of TComboBox; //da müssen beide Comboboxes rein, jeweisl mit entsprechend gesetztem Tag

procedure TForm1.CbCloseUp(Sender: TObject);
var
  ThisCB, OtherCB: TComboBox;
begin
  ThisCB := Sender as TComboBox;
  OtherCB := CBs[(ThisCB.Tag + 1) mod 2];

  OtherCB.Items.Delete(ThisCB.Text); //könnte auch Remove sein... halt das, wo man einen String reinpackt.
end;

//roterkasten
hier mal n kompletter Code