Problem mit Listbox hintergrundfarbe Delphi 7

[raiguen]

Das Einfärben aller Zeilen musst du selbst in die Hand nehmen und zwar im OnDrawItem:

Delphi-Quellcode:

...
ListBox1.Style := lbOwnerDrawVariable {oder lbOwnerDrawFixed}
...
procedure {Form}.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
   with ListBox1 do begin
     if (odSelected in State) or (odFocused in State) then
       Canvas.Brush.color := clHighLight //oder welche Farbe auch immer
     else
       Canvas.Brush.color := ColorBox1.selected; //--oder irgendeine 'feste' Farbe
     Canvas.FillRect(Rect);
     Canvas.Font.Color := clblack;
     Canvas.TextOut(Rect.Left,Rect.Top,Items[Index]);
   end;
end;