ListBox: Farbe der Markierung ändern

[Ardeo]

Hallo,

ich wollte fragen, wie ich die Farbe der Markierung in einer ListBox ändern kann.
Das wär's eigentlich auch schon

Danke im Vorraus

[Sunlight7]

Moin!

Die Forensuche hilft weiter.
Dies Thema gabs schon paar mal

[Ardeo]

Entschuldigung
Hab nun was gefunden
Nun würde ich auch noch gerne den Rand um den markierten Eintrag entfernen. Ich habe dazu auch ein Thema gefunden, nur konnte mir das nicht weiterhelfen ( siehe hier )

Könnte mir das jemand bitte erläutern (bin Anfänger )

[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;