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