Использование анимированных курсоров
Привет.
В новостных группах я встречал достаточно много вопросов об использовании в программах анимированных курсоров. На мой взгляд это достаточно простой вопрос.
Вот пример:
(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;
|
Я надеюсь, что помог вам этой информацией.
[000182]