Wie ein TComboBox Hintergrundfarbe ändern ?

[Satty67]

Hatte es jetzt schon geschrieben, Lerneffekt ist halt dadurch nur bei mir wirksam:

Delphi-Quellcode:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  FontColor,
  BackColor : TColor;
begin
  if odSelected in State then begin
    FontColor := clHighlightText;
    BackColor := clHighlight;
  end else if (Index mod 2 = 0) then begin
    FontColor := clBlack; // clWindowText
    BackColor := clWhite; // clWindow
  end else begin
    FontColor := clWhite;
    BackColor := clRed;
  end;

  with ComboBox1, ComboBox1.Canvas do begin
    Font.Color:= FontColor;
    Brush.Color:= BackColor;
    FillRect(Rect);
    TextOut(Rect.Left+5, Rect.Top, Items[index]);
  end;
end;