Delphi编程中实现动画鼠标 -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → Delphi编程中实现动画鼠标

Delphi编程中实现动画鼠标 时间：2004/10/7 19:13:00来源：本站整理作者：蓝点我要评论(0)

　　　　　　　　　　　　

　　　　　　　　　　　　动画光标是以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),启动后光标就变成动画光标了。

文章评论

查看所有0条评论>>