Как создать и использовать новую форму курсора?
Для этого необходимо создать новый курсор(ы) в подходящем для этого редакторе
ресурсов (например борландовский Resource Workshop). При этом надо обратить
внимание на то что имена в редакторе ресурсов (особенно в том, который поставляется
с Delphi) надо писать заглавными буквами. После этого “перед внутренним
употреблением” (лучше всего в процедуре обработки события OnCreate главной
формы) необходимо загрузить курсор(ы) из res-файла как указано ниже:
{$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;