Chami.com Tips

Add animated cursors to your program

const
  cnCursorID1 = 1;
begin
  Screen.Cursors[ cnCursorID1 ] :=
    LoadCursorFromFile(
      'c:\winnt\cursors\piano.ani' );
  Cursor := cnCursorID1;
end;

"c:\winnt\cursors\piano.ani" is of course the name of the animated cursor file and cnCursorID1 (defined as 1) is the index of your newly defined cursor. If you wanted to use more than one animated cursor, simply use a different index number -- cnCursorID2 (or 2) for example.