{$I CURSOR.RES} Screen.Cursors[1] := LoadCursor(hInstance, 'CURSOR_1'); Button1.Cursor := 1;
Обратите внимание на то, что системные
курсоры в Screen.Cursors начинаются с нуля и идут в
минусовом направлении. Поэтому при создании
новых курсоров лучше выбирать положительные
числа (лучше не слишком большие :-)).
Более удобный вариант - это объявить постоянную (равную
например 12):
const CUR_HAND = 12; ... Screen.Cursors[CUR_HAND] := LoadCursor(hInstance, 'CURSOR_HAND'); Button1.Cursor := CUR_HAND;