Curosr-Änderung sofort wirksam

[mirage228]

Habe etwas Nachforschung betrieben:
Tatsächlich ist es so, dass nur bei TWinControl-Nachfolgern die Änderung des Cursor sofort zum Update durchgereicht wird ("CMCursorChanged"). TImage ist aber ein TGraphicControl. Dort geschieht dies nicht unmittelbar.

Mit dieser Zeile aus der CMCursorChanged-Funktion klappt es auch ohne Workaround. Einfach direkt hinter der "Cursor := ..."-Zeile einfügen:

Delphi-Quellcode:

// Handle = Self.Handle => Form1.Handle
Perform(WM_SETCURSOR, Handle, HTCLIENT);