Kursor animasi adalah file dengan ani sebagai ekstensi.
Buat proyek baru, letakkan tombol1 di Form1, dan kemudian temukan file kursor animasi *.Ani. Kode:
kursor unit;
antarmuka
penggunaan
Windows, pesan, sysutils, kelas, grafik, kontrol, formulir, dialog, stdctrls;
Ketik tform1 = class (tform)
Button1: tbutton;
Prosedur FormCreate (pengirim: Tobject);
Prosedur FormClose (pengirim: Tobject; var Action: tcloseaction);
Prosedur Button1Click (pengirim: Tobject);
Private {private Declarations}
Publik {Deklarasi Publik}
akhir;
var
Form1: tform1;
Holdcursor: Hcursor; ′ mendefinisikan variabel
Implementasi {＄ r ＊ .dfm}
Prosedur TFORM1.FORMCREATE (Pengirim: Tobject);
Var
Hnewcursor: hcursor;
Mulai
Button1.caption: = ′ tutup ′;
HNewCursor: = LoadCursorFromFile (′ E: /BATMAN.ANI ′);
{Panggil fungsi API untuk memuat file kursor animasi, harap sesuaikan jalur file ani sesuai dengan situasi Anda yang sebenarnya}
Holdcursor: = setClassLong (form1.handle, gcl_hcursor, hnewcursor);
{Simpan kursor asli untuk pemulihan di masa depan}
akhir;
Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);
Mulai
Holdcursor: = setClassLong (form1.handle, gcl_hcursor, holdcursor);
Tutup (); {Jangan lupa untuk mengembalikan kursor sebelum mengakhiri program}
akhir;
akhir.
Sekarang Anda menjalankannya (tekan F9), dan setelah memulainya, kursor menjadi kursor animasi.