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