Мой DELPHI – Программирование

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

Ответ:

Во первых необходимо получит
handle курсора, а затем определить его в массиве курсоров компонента TScreen.
Индексы предопределенных курсоров системы отрицательны, пользователь может определить
курсор, индекс которого положителен.

Пример:
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;