Delphi编程中实现动画鼠标
2008-03-08 11:04:39 来源:WEB开发网核心提示:动画光标是以ANI为扩展名的文件,它的作用就是让你的鼠标外形变成动画,而不只是一个斜三角形,具体方法如下:新建一个工程,在FORM1上放一个BUTTON1,再找一个动画光标文件*.ANI,你可以到网上下载一个,也可从一些光盘中找一个(如:查找*.ANI文件),然后输入以下代码:unit CURSOR;interface
动画光标是以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),启动后光标就变成动画光标了。
新建一个工程,在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),启动后光标就变成动画光标了。
更多精彩
赞助商链接