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

如何在Delphi中實現ASP編程
摘要:如何在Delphi中實現ASP編程如何在Delphi中實現ASP編程   衆所周知,asp技術是我們在以internet/intranet爲平台的web程序的主要技術,在asp應用程序中我們一般使用vbscripts和javascripts兩種腳本語言。但是腳...查看完整版>>如何在Delphi中實現ASP編程
 
delphi編程實現圖像的淡入淺出-C/C++
下面是關鍵代碼,需要引用的單元,自己添加上去就可以~function IntToByte(i:Integer): Byte;begin if i 255 then Result := 255 else if i else Result := i;end;procedure Lightness1(var clip: tbitmap; Amo...查看完整版>>delphi編程實現圖像的淡入淺出-C/C++
 
在Delphi中實現ASP編程
摘要:在Delphi中實現ASP編程在Delphi中實現ASP編程   衆所周知,asp技術是我們在以internet/intranet爲平台的web程序的主要技術,在asp應用程序中我們一般使用vbscripts和javascripts兩種腳本語言。但是腳本語言是...查看完整版>>在Delphi中實現ASP編程
 
Delphi編程實現程序快捷方式[原創]
摘要:Delphi編程實現程序快捷方式[原創] Delphi編程實現程序快捷方式[原創] ★中共河南省濟源市委黨校,耿百強摘要:...查看完整版>>Delphi編程實現程序快捷方式[原創]
 
Delphi編程實現程序快捷方式[原創]
Delphi編程實現程序快捷方式[原創] ★中共河南省濟源市委黨校,耿百強摘要:本文主要介紹了用Delphi編程實現程序的快捷方式的方法,其中主要討論了Delphi中...查看完整版>>Delphi編程實現程序快捷方式[原創]
 
在Delphi中實現ASP編程
在Delphi中實現ASP編程   衆所周知,asp技術是我們在以internet/intranet爲平台的web程序的主要技術,在asp應用程序中我們一般使用vbscripts和javascripts兩種腳本語言。但是腳本語言是一種非編譯的語言,其所開發...查看完整版>>在Delphi中實現ASP編程
 
如何在Delphi中實現ASP編程
如何在Delphi中實現ASP編程   衆所周知,asp技術是我們在以internet/intranet爲平台的web程序的主要技術,在asp應用程序中我們一般使用vbscripts和javascripts兩種腳本語言。但是腳本語言是一種非編譯的語言,其所...查看完整版>>如何在Delphi中實現ASP編程
 
Delphi編程:完全控制桌面的實現
田志剛 (2000-10-19)  在Windows 9x中系統桌面和開始菜單可以說是它的一大特色,其實我們可以利用Delphi輕易地在應用程序中實現這種技術 :   新建一個應用程序, 將Form1窗體的BorderStyle屬性設置爲bsNone,F...查看完整版>>Delphi編程:完全控制桌面的實現
 
Delphi編程實現Ping操作
在Delphi中使用TidIcmpClient控件可以非常簡單的實現圖形界面的Ping!新建一個工程,命名爲PingGUI.dpr,窗口命名爲“frmPing”,加入如下組件: lstReplies: TListBox; ICMP: TIdIcmpClient; Pa...查看完整版>>Delphi編程實現Ping操作
 
 
回到王朝網路移動版首頁