TPaintBox1.Cursor setzen ?

[madina]

Hallo an Alle,

ich versuche mit den folgenden SourceCode einen benutzerdefinierten Cursor für einen TPaintBox1 in dem Ereignissen TPaintBox1.MouseDown, TPaintBox1.MouseMove und TPaintBox1.MouseUp setzen.

Delphi-Quellcode:

{$R .\mycursor.res}

crHand:= 1;

screen.cursors[crHand]:= LoadCursor(hInstance, "cursor1");

{1. soweit ich versuche über einen ButtonKlick einen Zuweisung mache ist es kein Problem wie folgt die richtige benutzerdefinierte Mouse ist dann aktiv:}

PaintBox1.Cursor:= crHand;


{2. aber wenn ich versuche über die Ereignisse TPaintBox1.MouseDown, TPaintBox1.MouseMove und TPaintBox1.MouseUp eine Zuweisung an die TPaintBox1.Cursor mache, wird der Wert richtig überwiesen aber dann wird er nicht aktiv}

PaintBox1.Cursor:= crHand;


Warum ??????

Für eine Antwort wäre ich dankbar.
Madina