Combobox: nicht editierbar

[toms]

Meinst du etwa so?

Delphi-Quellcode:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with Control as TComboBox do
  begin
    if DroppedDown and (odSelected in State) then
      Canvas.Brush.Color := clHighlight
    else
      Canvas.Brush.Color := clWindow;

    Canvas.Font.Color := clWindowText;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Items[Index]);
  end;
end;