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

Добавлено: 01 Августа 2018 06:52:35 Добавил: Андрей Ковальчук Нравится 0

Добавить