WEB开发网
开发学院软件开发C++ Delphi编程中实现动画鼠标 阅读

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

Tags:Delphi 编程 实现

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接