讓彩色游標出現在Delphi程式中 http://www.w555.com/pc/jiaocheng/program/delphi/002.htm 在Delphi中用Loadcursor()得到的游標只有黑白兩色，怎樣在程式中得到彩色游標呢？筆者嘗試製作了以下程式： 方法一 用Loadcursorfrom()從外部調入圖示作爲游標 Loadcursorfrom()函數可以讀*.CUR，*.ICO，*.ANI爲尾碼的文件作爲游標，其中ICO爲彩色圖示格式（可用Image Editor製作），ANI爲動畫游標格式。以下爲打開一圖示作爲游標的演示程式段，當游標移動到測試區域內游標會變成選定的圖案； {設：opendialog1:Topendialog;Bitbtn1:Tbitbtn} procedure TForm1.BitBtn1Click(Sender:TObject); var tt:pchar;size:integer;s:string; begin if opendialog1.Execute then begin size:=length(opendialog1.name); getmem(tt,size); s:=opendialog1.name; strpcopy(tt,s); screen.cursors[2]:=loadcursorfrom(tt); bf.cursor:=2; freemem(tt,size); end; end; 方法二 從資源檔案載入彩色游標 用方法一發送程式時必須包含*.CUR文件，因而從資源檔案中載入彩色游標是更可行的方法。用圖示存放彩色游標，使用時把圖示存入暫存檔案，用Loadcursorfrom（）從暫存檔案讀出彩色游標。 程式段： procedure ZloadfromResourse(screenindex:integer;name:Pchar); var td:ticon; begin try td:=ticon.Create; td.Handle:=LoadIcon(Hinstance,name); td.SaveTo(′temp.cur′); screen.Cursors[screenindex]:=loadcursorfrom(′temp.cur′); delete(′temp.cur′); finally td.free; end; end; 此程式把名字爲name的圖示變爲序號爲screenindex的游標; 例： ZloadfromResourse(2,′myicon′); Form1.cursor:=2; 注意：′myicon′這個圖示一定要在資源檔案中，否則會出現異常。 (四川 張 傑) 返回