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

Содержание раздела