Delphi编程中实现动画鼠标

2019-11-17 05:51:11

字体：大中小

来源：转载

供稿：网友

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

上一篇：用Delphi进行OpenGL编程学习心得

下一篇：一个设置任意窗口透明度的命令行Delphi程序

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注