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程序