动画光标是以ANI为扩展名的文件,它的作用就是让你的鼠标外形变成动画,而不只是一个斜三角形，具体方法如下：
新建一个工程,在FORM1上放一个BUTTON1,再找一个动画光标文件＊.ANI,你可以到网上下载一个,也可从一些光盘中找一个(如：查找＊.ANI文件),然后输入以下代码：
unit CURSOR;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
Type TForm1 = class(Tform)
Button1: Tbutton;
procedure FormCreate(Sender: Tobject);
procedure FormClose(Sender: Tobject; var Action: TCloseAction);
procedure Button1Click(Sender: Tobject);
private { Private declarations }
public { Public declarations }
end;
var
Form1: TForm1;
HOLDCURSOR:HCURSOR; ′定义一个变量
Implementation {＄R ＊.DFM}
procedure TForm1.FormCreate(Sender: Tobject);
VAR
HNEWCURSOR:HCURSOR;
begin
BUTTON1.CAPTION:=′关闭′;
HNEWCURSOR:=LOADCURSORFROMFILE(′E:\BATMAN.ANI′);
{调用API函数装载动画光标文件,ANI文件路径请根据自己的实际情况进行调整}
HOLDCURSOR:=SETCLASSLONG(FORM1.HANDLE,GCL_HCURSOR,HNEWCURSOR);
{把原光标储存起来以备以后的恢复}
end;
procedure TForm1.Button1Click(Sender: Tobject);
begin
HOLDCURSOR:=SETCLASSLONG(FORM1.HANDLE,GCL_HCURSOR,HOLDCURSOR);
CLOSE(); {在结束程序前一定不要忘记恢复光标}
end;
end.
现在你运行一下(按F9),启动后光标就变成动画光标了。
|
