Problem mit ComboBox.Text im OnChange Event

[marabu]

Wenn ich alles richtig verstehe, dann geht es um eine Lookup-Funktion analog der Komponente TDBLookupCombobox. Ich würde eine Komponente TLookupComboBox von der Standard-ComboBox ableiten, aber auf die Schnelle funktioniert dieser Ansatz:

Delphi-Quellcode:

procedure TDemoForm.ComboBoxDropDown(Sender: TObject);
var
  i: Integer;
begin
  with Sender as TComboBox do
  begin
    i := ItemIndex;
    Items.CommaText := 'Kilogramm,Paket,Stück';
    ItemIndex := i;
  end;
end;

procedure TDemoForm.ComboBoxCloseUp(Sender: TObject);
var
  i: Integer;
begin
  with Sender as TComboBox do
  begin
    i := ItemIndex;
    Items.CommaText := 'Kg,Pk,St';
    ItemIndex := i;
  end;
end;

Eine private message an die Form aus dem Ereignis OnClick() der ComboBox wäre ein weiterer Ansatz. Unabhängig vom Lösungsansatz beschleicht mich aber ein Gefühl von Unbehagen.

Grüße vom marabu