動畫光標是以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操作
