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