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.

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:


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!