Add animated cursors to your program

[bholas]

Animated cursors have become so popular since the good old days of Windows 3.0, now they are a built-in part of the Windows 95 and Windows NT operating systems. Here's how you can use them in your Delphi 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.

Similar Threads:

• Say no to program closings!
• The animated avatar I would like to play on TV
• A demo program to create subscreen in your ABAP Program
• Depp in animated TV series?
• Remake of "Kuch Kuch Hota Hai" in animated way!