動(dòng)畫光標(biāo)是以ANI為擴(kuò)展名的文件,它的作用就是讓你的鼠標(biāo)外形變成動(dòng)畫,而不只是一個(gè)斜三角形，具體方法如下：
新建一個(gè)工程,在FORM1上放一個(gè)BUTTON1,再找一個(gè)動(dòng)畫光標(biāo)文件＊.ANI,你可以到網(wǎng)上下載一個(gè),也可從一些光盤中找一個(gè)(如：查找＊.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; ′定義一個(gè)變量
Implementation {＄R ＊.DFM}
procedure TForm1.FormCreate(Sender: Tobject);
VAR
HNEWCURSOR:HCURSOR;
begin
BUTTON1.CAPTION:=′關(guān)閉′;
HNEWCURSOR:=LOADCURSORFROMFILE(′E:\BATMAN.ANI′);
{調(diào)用API函數(shù)裝載動(dòng)畫光標(biāo)文件,ANI文件路徑請(qǐng)根據(jù)自己的實(shí)際情況進(jìn)行調(diào)整}
HOLDCURSOR:=SETCLASSLONG(FORM1.HANDLE,GCL_HCURSOR,HNEWCURSOR);
{把原光標(biāo)儲(chǔ)存起來以備以后的恢復(fù)}
end;
procedure TForm1.Button1Click(Sender: Tobject);
begin
HOLDCURSOR:=SETCLASSLONG(FORM1.HANDLE,GCL_HCURSOR,HOLDCURSOR);
CLOSE(); {在結(jié)束程序前一定不要忘記恢復(fù)光標(biāo)}
end;
end.
現(xiàn)在你運(yùn)行一下(按F9),啟動(dòng)后光標(biāo)就變成動(dòng)畫光標(biāo)了。