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