Fokus-Umrandung in ListBox abschalten

[Popov]

Weiß einer wie man die Fokus-Umrandung in ListBox abschalten oder ändern kann? Ich hab das mal in einem meiner Programme gemacht und weiß deshalb, daß es geht. Allerdings kann ich mich nicht mehr dran erinnern wie oder wo ich das gemacht habe.

Noch mal, es geht nur um die punktierte Fokus-Umrandung, nicht um die Farbe des ausgewählten Items.

[taaktaak]

Moin, Moin.
Mal so aus der Hüfte geschossen:
Würde es mit OnDrawItem versuchen und nach dem TextOut() noch ein 2tes FocusRect zur Neutralisation

Delphi-Quellcode:

if odFocused in State then DrawFocusRect(Rect);

[Popov]

Auf eine ähnliche Idee bin ich zwar auch gekommen, hab aber die Zeile falsch gesetzt. Es muß die letzte Draw Aktion sein. Wobei die Zeile keinen Fokus abschaltet, sondern selbst einen zeichnet. Das System zeichnet dann trotzdem sein eigenen Fokus, was dazu führt, daß der Fokus XOR überzeichnet wird, also verschwindet.

Das Ergebnis ist ok, aber ich hab es mal anders hingekriegt.