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; |