Как использовать анимированный курсор в программе?

← →
AndreFJ (2002-08-26 14:39) [0]

Прошу подсказать, каким образом добавить в файл ресурсов анимированный курсор (с расширением ani) и как его потом использовать в программе.

← →
MBo © (2002-08-26 14:44) [1]

из Озерова

1)
const crMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin

// Загружаем курсор. Единственный способ для этого
Screen.Cursors[crMyCursor] :=
LoadCursorFromFile("c:\mystuff\mycursor.ani");

// Используем курсор на форме
Cursor := crMyCursor;
end;

2)
Из советов Nomadic"a:
Сперва Вы должны взять хэндл курсора Windows и присвоить его одному из элементов массива Cursors обьекта Screen.

Предопределенные курсоры имеют отрицательный индекс, а определенные пользователем (Вами) курсоры получают положительные индексы.

Ниже пример формы, использующей анимированный курсор:

--------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var

h: THandle;
begin

h := LoadImage(0,
"C:\TheWall\Magic.ani",
IMAGE_CURSOR,
0,
0,
LR_DEFAULTSIZE or
LR_LOADFROMFILE
);
if h = 0 then ShowMessage("Cursor not loaded")
else
begin
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;
end;

Как использовать анимированный курсор в программе? Найти похожие ветки