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