БОЛЬШОЙ FAQ ПО DELPHI



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

Автор: Nomadic

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


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




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ