|
Разделы сайта
|
Главная
Покупаем абсолютно любые сайты, не зависимо от посещаемости, тематики и доменного имени.wm-help.net -> Электронная библиотека -> Delphi -> 39 советов по Delphi -> Новая форма курсора
Новая форма курсора
{$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;