Listbox Опции

[Артемий]

Тут такой вопрос - как в ListBox изменить цвет выделения текста...никак не найду!

[Алена]

Изменить событие OnDrawItem:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  With ListBox1 do begin

    if odSelected in State then
      Canvas.Brush.Color := clRed { <--- Теперь цвет highlighting-а будет красным }
    else
      Canvas.Brush.Color:=clWindow;

    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left+2,Rect.Top,Items[Index]);
  end;
end;

+ свойство Style для TListBox установить в LBOwnerDraw<...>

Кстати, это было в DRKB, по-моему...