Как убрать рамку фокуса ввода с TListBox?

[SalasAndriy]

Здраствуйте! Подскажите пожалуйста каким образом можно зделать чтобы в TListBox небыло ни такого как на рисунке "ft.PNG" и ни такого как на рисунке "ft2.PNG", а чтобы было просто вот так как на рисунке "ft3.PNG" при любой ситуации! Даже если фокус ввода находится на этом компоненте, но чтобы он не рисовал такую рамку на выделенном элементе списка.

Как можно это осуществить?

Заранее спасибо!

[Terran]

Можете сделать так:

Procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
Begin
(Control As TListBox).Canvas.FillRect(Rect);
DrawText((Control As TListBox).Canvas.Handle,
PChar((Control As TListBox).Items[Index]),
Length((Control As TListBox).Items[Index]),
Rect,Control.DrawTextBiDiModeFlags(DT_SINGLELINE Or DT_VCENTER Or DT_NOPREFIX));
If OdFocused In State Then
DrawFocusRect((Control As TListBox).Canvas.Handle, Rect);
End;

Не забудьте установить свойство ListBox1.Style:=LbOwnerDrawFixed;

[SalasAndriy]

Большое спасибо! Очень помогли!!!