@Popov:
Soll/darf der Benutzer den Text ändern oder ist der nur zur Anzeige gedacht?
Wenn es nur ums Anzeigen geht, dann mit einer OwnerDraw-Combobox;
Delphi-Quellcode:
...
ComboBox1.Items.Add('Apfel=Obst');
ComboBox1.Items.Add('Kirsche=Obst');
ComboBox1.Items.Add('Paprika=Gemüse');
...
procedure TForm1.ComboBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
var combo:TComboBox;
s :String;
begin
combo:=TComboBox(Control);
if (odComboBoxEdit in State) then
s:=combo.Items.ValueFromIndex[Index]
else
s:=combo.Items.Names[Index];
combo.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top, s);
//if (odSelected in State) then combo.Canvas.DrawFocusRect(Rect);
end;