- В винде без мышки, чувствуешь себя скалолазом без снаряжения!
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\, и присвоение его форме.
Разбивка каждого шага:
Константа crMyCursor объявлена, которая будет хранить.handle загруженного курсора.
В обработчике события FormCreate, код:
Загружает курсор из указанного файла с помощью LoadCursorFromFile.
Присваивает загруженный курсор массиву Screen.Cursors под индексом crMyCursor.
Код устанавливает свойство формы 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.
