Guten Morgen.
Mir gefällt eine andere Lösung. Ist der Style auf
csOwnerDrawFixed gesetzt und wird folgender Code verwendet, dann triumphiert das Prinzip der Trennung von Daten und Darstellung:
Delphi-Quellcode:
procedure TDemoForm.ComboBoxDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with Control as TComboBox do
begin
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index] + '%');
end;
end;
Grüße vom marabu