ListBox Seleccionada De Color

[ZayDun]

hola,mi duda es que me gustaria que el items seleccionado de un listbox fuese de otro color... yo he probado ya varias maneras pero no encuentro la manera.. he visto un ejemplo que hablaba de items de varios colores pero del item seleccionado nada.. yo intento algo asi pero claro... NO FUNCIONA xD Saludos a todos los foreros y gracias.

Código Delphi [-]
Lista.ItemIndex:=Lista.Canvas.Font.Color:=clRed;

[[cHackAll]]

A la propiedad de tu ListBox llamada "Style" definela como lbOwnerDrawFixed en tiempo de diseño, en el Evento OnDrawItem copia el siguiente código:

Código Delphi [-]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
 with ListBox1.Canvas do
  begin
   if odSelected in State then
    Brush.Color := clRed
   else
    Brush.Color := clWhite;
   FillRect(Rect);
   TextOut(Rect.Left + 4, Rect.Top + 1, ListBox1.Items[Index]);
  end;
end;

Suerte!