| 導購 | 订阅 | 在线投稿
分享
 
 
 

Delphi編程中實現動畫鼠標

2008-06-01 01:10:29  編輯來源:互聯網  简体版  手機版  移動版  評論  字體: ||

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

動畫光標是以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),啓動後光標就變成動畫光標了。
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
王朝網路微信公眾號
微信掃碼關註本站公眾號 wangchaonetcn
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有