- В винде без мышки, чувствуешь себя скалолазом без снаряжения!
const
crMyCursor = 1;
procedure TForm1.FormCreate(Sender: TObject);
begin// Загружаем курсор. Единственный способ для этого
Screen.Cursors[crMyCursor] :=
LoadCursorFromFile('c:\mystuff\mycursor.ani');
// Используем курсор на форме
Cursor := crMyCursor;
end;
Статья Использование анимированных курсоров раздела ОС и Железо Мышка и Курсор может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.