Mauszeiger ändert sich nicht bei Paintbox.MouseDown

[bernie110]

Danke für den Tip!

Das ändert zwar den Mauszeiger bei MouseDown, aber noch nicht an den Grenzen.
Wenn ich daher zusätzlich die Grenzen abfrage:

Delphi-Quellcode:

if (X < Paintbox1.Left)
or (X > Paintbox1.Width)
or (Y < Paintbox1.Top)
or (Y > Paintbox1.Height)   
then
  Screen.Cursor := crDefault
else
  Screen.Cursor := crCross;

dann erreiche ich das gewünschte Verhalten.

Bernie110