Delphi編程中實現動畫鼠標

動畫光標是以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),啟動後光標就變成動畫光標了。