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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

Автор: Nomadic

- В винде без мышки, чувствуешь себя скалолазом без снаряжения!

const
  crMyCursor = 1;

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

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