Add animated cursors to your program

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.

Tagged:

3 thoughts on “Add animated cursors to your program

  1. Elisabeth 4 Januari 2013 pukul 6:56 am

    It’s really a nice and useful piece of information. I’m happy that you just shared this helpful information with us.
    Please stay us up to date like this. Thanks for sharing.

  2. insurance adjuster 23 April 2013 pukul 10:13 pm

    Hey There. I found your blog using msn. This is a really well written
    article. I will make sure to bookmark it and return to read more of your useful info.
    Thanks for the post. I’ll definitely return.

  3. yahoo autos 26 April 2013 pukul 7:31 pm

    A motivating discussion is worth comment. I do think that you need
    to publish more about this subject matter, it may not be a taboo matter but usually people
    don’t discuss such issues. To the next! All the best!!

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: