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

Во первых необходимо получит 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;
 
« Предыдущая статья   Следующая статья »