onMouseMove abfragen?

[poterp]

Hi,
ich habe Delphi7.

ich habe das hier im Forum gefunden und wurde es Probieren
if FindDragTarget(Mouse.CursorPos, True)= Panel1 then Panel1.Color := cl Green else Panel1.Color := clBlack; ich freue mich auf Ihr Antwort.
Grüß
Poter

[bitsetter]

Hi,

der Code ist aus diesem Thread und es wurde festgestellt, dass mann dafür einen Timer bei Delphi 7 braucht, was nicht gerade elegant ist.
Weitere Möglichkeiten wurden doch weiter oben aufgezeigt, also eine Komponente wie die aus Beitrag #19 oder mit Hilfe von Subclassing siehe Anhang.
Bei neueren Delphiversionen ist onMouseEnter und onMouseLeave für das TPanel schon vorhanden, da kann man sich den Code sparen.