Wozu dient denn die MousePosition in Highlight2() ???? Du willst doch ein ganz bestimmtes Control, dass du als Parameter übergibst, behandeln! Lösche einfach den Quark ..
Delphi-Quellcode:
if PtInRect(GetRect(Control, ABorder), ScreenToClient(Mouse.CursorPos)) then
Canvas.Brush.Color :=clblue // egal welche farbe !
else
'raus. Dann sollte es funktionieren
