開發(fā)者都希望自己的程序有一個友好的界面，此時，一個生動活潑、有表現(xiàn)力的光標就必不可少了。Windows 缺省提供22種標準光標供在程序中調(diào)用，但對一個求新求變的程序員來說，標準光標就不能滿足要求了，需要使用自己的光標，那么，在程序中怎樣使用自己的光標呢？

　　●光標資源的獲得

　　要使用自定義光標，必須先得到這些光標。光標文件有兩種：靜態(tài)光標(.cur)和動態(tài)光標(.ani)。你可以使用現(xiàn)成的光標文件，比如Delphi 自帶的一組光標文件(在C:Program FilesBorlandDelphi 3ImagesCursors目錄中)，如果你安裝了Windows98的桌面主題，則可在Windowsplus! 目錄下找到許多光標文件。你也可以自己創(chuàng)建光標文件，比如使用Delphi自帶的Image Editor 就可創(chuàng)建靜態(tài)光標文件(.cur），但Image Editor不能創(chuàng)建彩色光標，要創(chuàng)建彩色光標，必須使用其它工具，如Vc＋＋ 的資源編輯器。動態(tài)光標則必須使用專門的工具軟件制作，使用動態(tài)光標可達到光標的動畫效果，動態(tài)光標文件的文件結(jié)構(gòu)與AVI文件結(jié)構(gòu)相似，由文字描述區(qū)、信息區(qū)、時間控制區(qū)、數(shù)據(jù)區(qū)四部分構(gòu)成。Windows通過按文件時間控制區(qū)中指定的時間一幀幀播放文件數(shù)據(jù)區(qū)中包含的光標或圖標圖像來實現(xiàn)動畫效果。

　　其實，分析文件結(jié)構(gòu)可以發(fā)現(xiàn)，靜態(tài)光標文件(.cur)與圖標文件(.ico)結(jié)構(gòu)非常類似，兩種文件的主要差別僅在于文件頭的文件識別碼和是否存在跟蹤點(Hot Spot)。文件識別碼放在文件的頭三個字節(jié)，圖標文件為00 00 01，光標文件為00 00 02；圖標文件沒有跟蹤點，光標文件的跟蹤點信息放在文件的00 0A－00 0D 四個字節(jié)中，00 0A － 00 0B記錄跟蹤點的X 坐標，00 0C－00 0D 記錄Y 坐標，記錄順序都是高位在前，低位在后，圖標文件的00 0A－00 0D 為保留位。知道了兩者的差異，你就可以通過手工或編一個小程序來實現(xiàn)圖標文件到光標文件的轉(zhuǎn)換。相對于光標文件來說，圖標文件要好找得多，顏色上也更豐富。

　　除了光標文件外，你也可以創(chuàng)建資源文件（.res ),在資源文件中包含光標資源, Delphi 同樣可在程序中調(diào)用�？墒褂肐mage Editor 或Microsoft的資源編輯器創(chuàng)建資源文件(推薦使用Vc＋＋的資源編輯器）。Delphi 缺省為每一個項目創(chuàng)建一個與項目名同名的資源文件，如你的項目名為test.dpr ，則資源文件名為test.res。但你如果把光標放在這個文件中，在程序中是無法調(diào)用的，必須創(chuàng)建自己的資源文件。在給光標資源命名時注意不要與已有的資源重名，創(chuàng)建好后，再在程序中使用編譯指令＄R將資源文件加在程序中，如資源文件為my.res,則在主窗體的Implementation下加上一行{＄R my.res} 就可以了。

　　●自定義光標在程序中的使用

　　Delphi 使用自定義光標是通過調(diào)用Windows的API函數(shù)實現(xiàn)的。Delphi 的Screen 對象定義有一個Cursors 屬性，屬性聲明為Property Cursors[Index:Interger]:Hcursor;Cursors屬性實際記錄了應用程序中使用的全部光標資源的句柄，Index 為每項資源的索引號。Delphi缺省提供的22種光標資源也在其中，Index值為－21～0。要使用自己的光標，首先可調(diào)用API函數(shù) Loadcursorfromfile(對于光標文件）或使用Loadcursor(對于資源文件）獲得相應光標的句柄，這兩個函數(shù)都定義在Windows單元中，函數(shù)聲明為：

　　Function LoadCursorFromFile(lpFileName:PAnsiChar):HCURSOR;stdcall;

　　//lpFilename為光標文件名。(兩種光標都適用，只需具體指定光標文件名就可以了。)

　　Function LoadCursor(hInstance: HINST; lpCursorName: PAnsiChar): HCURSOR; stdcall;

　　//hInstance為應用程序的句柄，lpCursorName為光標資源的名字。在資源文件中只能包含靜態(tài)光標資源，資源文件不支持動態(tài)光標這種格式的資源。兩個函數(shù)的詳細說明可參考Delphi的Win32幫助。

　　得到光標的句柄后，將這個句柄值添加到Cursors數(shù)組中，注意Index不要與已有的索引號重復，否則將覆蓋已有的光標。要使用這個光標時，只要將該光標的Index賦值給元件的Cursor屬性就可以了，Delphi根據(jù)這個索引號查找Cursors數(shù)組，找到該光標的句柄，并用Setcursor函數(shù)將這個句柄賦給元件。需要指出的是，程序結(jié)束時，不必調(diào)用Deletecursor函數(shù)釋放光標資源，Delphi會自動釋放它們。

　　●程序示例

　　unit Unit1;

　　interface

　　uses

　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

　　type

　　 TForm1 = class(TForm)

　　　　　　　　procedure FormCreate(Sender: TObject);

　　 private

　　　　{ Private declarations }

　　 public

　　　　{ Public declarations }

　　 end;

　　var

　　 Form1: TForm1;

　　implementation

　　{＄R ＊.DFM}

　　{＄R my.res}//加載資源文件my.res

　　procedure TForm1.FormCreate(Sender: TObject);

　　const

　　crmy1=1;

　　crmy2=2;

　　crmy3=3;

　　var

　　result1,result2,result3:integer;

　　begin

　　　　 result1:=loadcursorfromfile(′my.cur′);

　　 if result1<>0 then //如果返回值為0，則調(diào)用失��！

　　 screen.cursors[crmy1]:=result1

　　 else

　　 showmessage(′加載靜態(tài)光標文件出錯！′);

　　 result2:=loadcursorfromfile(′my.ani′);

　　 if result2<>0 then

　　 screen.cursors[crmy2]:=result2

　　 else

　　 showmessage(′加載動態(tài)光標文件錯誤！′);

　　 result3:=loadcursor(Hinstance,′mycursor′);

　　Hinstance為定義在System單元中的一個長整變量，其值為應用程序的句柄，由Delphi自己維護。

　　在加載資源文件的光標資源時，如果光標的名字為整數(shù)（Vc＋＋的資源編輯器給資源的缺省名就為整數(shù)），就必須使用API函數(shù)Makeintresource將整數(shù)轉(zhuǎn)換為PansiChar類型，再傳遞給Loadcursor函數(shù)。

　　例如：result:=Loadcursor(Hinstance,Makeintresource(101))}

　　 if result3<>0 then

　　 screen.cursors[crmy3]:=result3

　　 else

　　 showmessage(′加載資源文件中的光標資源出錯！′);

　　//使用加載的光標，cursors[]數(shù)組為全局變量，可在程序的任何地方調(diào)用；

　　 if result1<>0 then

　　 screen.cursor:=crmy1;

　　 if result2<>0 then

　　 form1.cursor:=crmy2;

　　　　 if result3<>0 then

　　 screen.cursor:=crmy3;

　　end;

　　end.

　　程序在Windows95 ,Delphi3.0中調(diào)試通過。