courser ändern

[himitsu]

Delphi-Quellcode:

const crMyCursor = 5;
{die vordefinierten Cursor sind 0 bis -22}
{also kannst du ab 1 und höher gefahrlos eigene Cursor definieren}

Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor');
{oder}
Screen.Cursors[crMyCursor] := LoadCursorFromFile('Cursor.cur');

Cursor := crMyCursor;

Form1.Cursor := crMyCursor;
Button1.Cursor := crMyCursor;
...