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