Использование анимированных курсоров

Delphi , ОС и Железо , Мышка и Курсор

const
  crMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Загружаем курсор. Единственный способ для этого
  Screen.Cursors[crMyCursor] :=
    LoadCursorFromFile('c:\mystuff\mycursor.ani');

  // Используем курсор на форме
  Cursor := crMyCursor;
end;

Прошлые дни анимированных курсоров!

Код написан на Delphi и направлен на загрузку анимированного курсора из файла mycursor.ani, расположенного в папке c:\mystuff\, и присвоение его форме.

Разбивка каждого шага:

1. Константа crMyCursor объявлена, которая будет хранить.handle загруженного курсора.
2. В обработчике события FormCreate, код:
   • Загружает курсор из указанного файла с помощью LoadCursorFromFile.
   • Присваивает загруженный курсор массиву Screen.Cursors под индексом crMyCursor.
3. Код устанавливает свойство формы Cursor в crMyCursor, эффективно сделав ее использовать новый анимированный курсор.

Обратите внимание:

• Функция LoadCursorFromFile возвращает.handle загруженного курсора, который затем хранится в crMyCursor.
• Массив Screen.Cursors содержит handles для курсоров, которые могут быть использованы приложением. Присваивая загруженный курсор этому массиву, форма может использовать его.
• Обработчик события FormCreate - это общее место для инициализации компонентов и настройки свойств формы.

Альтернативное решение:

Вместо использования анимированного файла курсора, вы можете создать custom cursor в Delphi с помощью компонента TBitmap и рисовать animation frames вручную. Это даст вам больше контроля над внешним видом и поведением курсора.

Например:

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Создаем TBitmap для хранения анимированного курсора
  var
    bitmap: TBitmap;
  begin
    bitmap := TBitmap.Create;
    bitmap.Width := 16; // подправьте ширину и высоту, как нужно
    bitmap.Height := 16;

     // Рисуем animation frames здесь...

     // Загружаем custom cursor из битмапа
    Screen.Cursors[crMyCursor] := CreateCursor(bitmap, 0, 0);
    Cursor := crMyCursor;
  end;
end;

Обратите внимание, что создание custom курсора может быть более сложным и требующим времени, чем просто загрузка существующего анимированного файла курсора.

В статье описывается способ использования анимированных курсоров в приложении для Windows, демонстрируя пример кода на языке Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Мышка и Курсор ::