Изменить курсор в своей программе

Категория: Delphi/Pascal
2012-11-27 16:02:57

Рисуем курсор (*.cur) каким-нибудь редактором, затем запихиваем его в файл ресурсов *.res (лучше в Project1.res). Затем в коде пишем:

code: #delphi
// объявляем константу
const
    crMyCursor = TCursor($101);
...
// загружаем курсор из ресурсов
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'MY_CURSOR'); // указываем его имя
 
// все готово
Form1.Cursor := crMyCursor;

автор: Vovan-VE

Поделиться:

Похожие статьи:

теги: курсор, изменить курсор