Wie ein TComboBox Hintergrundfarbe ändern ?

[juergen]

Hallo madina,

im OnDrawItem Event hinterlegst du folgendes:

Delphi-Quellcode:

procedure TForm1.Combobox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var meine_Farbe: TColor;
begin
  meine_Farbe := ComboBox1.Color;

  with ComboBox1, ComboBox1.Canvas do begin
    if Index mod 2 = 0 then
    begin
      meine_Farbe := clWhite;
      Font.Color:= clblack;
      Brush.Color:= meine_Farbe;
      FillRect(Rect);
      TextOut(Rect.Left+5, Rect.Top+1, Items[index]);
    end
    else
    begin
      meine_Farbe := clRed;
      Font.Color:= clblack; 
      Brush.Color:= meine_Farbe;
      FillRect(Rect);
      TextOut(Rect.Left+5, Rect.Top+1, Items[index]);
    end;
  end;
end;

Und nicht vergessen den Style der Combobox auf csOwnerDrawFixed zu setzen.