ListBox: Farbe der Markierung ändern

[Sunlight7]

Um den Fokusrahmen zu entfernen musst Du die Items selber Zeichnen, und diesen Trick anwenden:

Delphi-Quellcode:

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

      // Text zeichnen

      If (odFocused in State) then
         DrawFocusRect(Canvas.Handle, Rect);
   end;
end;