Merlin’s Delphi Forge

Animated cursors have become very popular in the days of Windows 3.x. Now they have become a part of Windows 95 and newer. Sometimes you might want to use your own animated cursors instead of the user’s. The idea is same as with “normal” cursors.

Here’s the code:

const
  btCursorID1 = 1;
begin
  (* sCursorFile - (string) The full path of the animated cursor you want
  ** to use.
  *)
  Screen.Cursors[btCursorID1] := LoadCursorFromFile(sCursorFile);
  { This will set the cursor for the form }
  Cursor := btCursorID1;
end;

Tags: ani, animated, change, cur, cursor, Delphi, file, gif, object pascal, program, swap, tip, trick, use, windows