Delphi. Как создать и использовать новую форму курсора?
Для этого необходимо создать новый курсор(ы) в
подходящем для этого редакторе ресурсов (например
борландовский 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;


