Order and save right now! 20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

Others

⤷ Get frames of animated cursor

Use LoadImage function at first. This function returns a handle of new cursor. And use this handle in DrawIconEx function, which may break animated cursor by frames.

procedure TForm1.Button1Click(Sender: TObject);
var
  H: THandle;
  i, j: Integer;
begin
  H:=LoadImage(
    Screen.Cursor,
    'shuttle.ani',
    IMAGE_CURSOR,
    50,
    50,
    LR_LOADFROMFILE);
  if H<>0 then
  begin
    for j:=0 to 30 do
      for i:=0 to 9 do
        DrawIconEx(
          Canvas.Handle, 
          5+i*35, 
          5+j*50, 
          H, 
          30, 
          30, 
          j*10+i, 
          0, 
          DI_NORMAL);
  end;
end;

More for developers

● Delphi Components

● .Net Components

● Software for Android Developers

● Databases for Amazon Associates
Amazon Categories
Amazon Nodes