Советы по 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;

Я надеюсь, что помог вам этой информацией.

[000182]


Начало  Назад  Вперед



Книжный магазин