Items in ComboBox rechtsbündig

[Natcree]

Oder Direkt für die Combobox...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.style:=csownerdrawfixed;
end;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as Tcombobox) do
  Canvas.TextRect(Rect, Rect.Right - Canvas.TextWidth(Items[Index]) - 2, Rect.Top, Items[Index]);
end;