Combobox Teil 2

[DGL-luke]

Das unter dem "var" muss entweder als globale Variable definiert werden (dahin, wo auch "Form1: TForm1" steht) oder als private member in die Form (dahin, wo "{Private-Deklarationen}" steht).
Die Prozedur muss als Ereignisbehandlung für die OnCloseUp oder OnChange (dann aber zusätzlich auf ItemIndex > -1 prüfen) Ereignisse beider Comboboxen eingestellt werden. Dafür am besten zu einer COmbobox gehen, im OI (F11) auf "Ereignisse", auf "OnCloseUp" doppeklicken und den Programmcode reinkopieren, bei der zweiten Combobox das selbe Ereignis diesmal auswählen.

Wobei mein Code noch nciht perfekt ist:

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];

  ThisCB.Items.Text := CBText;
  OtherCB.Text := CBText;

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

Ohne die zwei zusätzlichen Zeilen werden die Auswhlmöglichkeiten nämlcih immer weniger