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 :oops:
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 :zwinker: )

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