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

Written on 01 Ноября 2007. Posted in [Delphi] Система

(mycursor.ani - файл, содержащий анимированный курсор. Вы можете создать его с помощью программы Microsoft aniedit.exe)

const crMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin

// Загружаем курсор. Единственный способ для этого

Screen.Cursors[crMyCursor] :=

LoadCursorFromFile('c:\mystuff\mycursor.ani');

// Используем курсор на форме

Cursor := crMyCursor;

end;