让彩色光标出现在Delphi程序中

张杰
1998年 第16期 13版

　　在Delphi中用Loadcursor（）得到的光标只有黑白两色，怎样在程序中得到彩色光标呢？笔者尝试制作了以下程序：
　　方法一　用Loadcursorfromfile（）从外部调入图标作为光标
　　Loadcursorfromfile（）函数可以读＊.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.filename）;
　　getmem（tt，size）;
　　s:=opendialog1.filename;
　　strpcopy（tt，s）;
　　screen.cursors[2]:=loadcursorfromfile（tt）;
　　bf.cursor:=2;
　　freemem（tt，size）;
　　end;
　　end;
　　方法二　从资源文件加载彩色光标
　　用方法一发送程序时必须包含＊.CUR文件，因而从资源文件中加载彩色光标是更可行的方法。用图标存放彩色光标，使用时把图标存入临时文件，用Loadcursorfromfile（）从临时文件读出彩色光标。
　　程序段：
　　procedure ZloadfromResourse（screenindex:integer;name:Pchar）;
　　var td:ticon;
　　begin
　　try
　　td:=ticon.Create;
　　td.Handle:=LoadIcon（Hinstance，name）;
　　td.SaveToFile（′temp.cur′）;
　　screen.Cursors[screenindex]:=loadcursorfromfile（′temp.cur′）;
　　deletefile（′temp.cur′）;
　　finally
　　td.free;
　　end;
　　end;
　　此程序把名字为name的图标变为序号为screenindex的光标;
　　例：
　　ZloadfromResourse（2，′myicon′）;
　　Form1.cursor:=2;
#1　　注意：′myicon′这个图标一定要在资源文件中，否则会出现异常。


 