动画鼠标在delphi编程中的实现

动画光标是作为文件的扩展，它的作用是使你的鼠标形状变成动画，而不是一个倾斜三角形，具体的方式如下：
建立一个新的项目，将Button1 Form1和找到一个动画光标ANI文件*。你可以从网上下载一个，或者你可以找到一些从一些光盘，如：find.ani文件，并输入下面的代码。
单元的光标；
接口
使用
Windows消息，SysUtils、类、图形、控件、表格、对话框、StdCtrls；
型发生一事件=类（平台）
Button1：Tbutton；
程序formcreate（发件人：TObject）；
程序formclose（发件人：TObject；无功动作：tcloseaction）；
程序实现旋转字体（发件人：TObject）；
私有{声明}
公共{声明}
结束；
VaR
1：发生一事件；
holdcursor：hcursor；定义了一个变量
实施{ $ R * DFM }。
程序tform1.formcreate（发件人：TObject）；
VaR
hnewcursor：hcursor；
开始
Button1。字幕：=关闭；
hnewcursor：= loadcursorfromfile（E：蝙蝠侠。阿尼）；
{调用API函数来加载动画光标文件，并根据您自己的实际情况调整文件路径。
holdcursor：= setclasslong（form1.handle，gcl_hcursor，hnewcursor）；
{原始光标存储在后续恢复}中。
结束；
程序tform1.button1click（发件人：TObject）；
开始
holdcursor：= setclasslong（form1.handle，gcl_hcursor，holdcursor）；
关闭（）；{不要忘记在程序结束前恢复光标。
结束；
结束。
现在你运行（F9），并且光标变成一个动画光标后开始。