Изменить курсор в своей программе — Delphi(Делфи)

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

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

// все готово
Form1.Cursor := crMyCursor;

Leave a Comment