高校问答mugen福利列车视频:delphi我想自定义鼠标，怎么弄
来源：百度文库 编辑：高校问答 时间：2024/05/10 14:13:07
我想自定义鼠标，不用delphi里面事的
要怎么做啊，这个，一点也不会
"Icon image is not valid”，一运行就有这个，
我的资源文件这么写的。mycur cursor "A_01.cur"或写成这样mycur cur "A_01.cur"（这两个一样吧）
是不是资源文件写错了。
我看到保存程序的目录里有一个temp.cur存在了。它是0KB.,,
晕，改了一下午，还是不行，，它总是0。。。我哪个地方写错了！
还没弄好。。。。
要怎么做啊，这个，一点也不会
"Icon image is not valid”，一运行就有这个，
我的资源文件这么写的。mycur cursor "A_01.cur"或写成这样mycur cur "A_01.cur"（这两个一样吧）
是不是资源文件写错了。
我看到保存程序的目录里有一个temp.cur存在了。它是0KB.,,
晕，改了一下午，还是不行，，它总是0。。。我哪个地方写错了！
还没弄好。。。。
先制作一个包含光标文件(*.cur或是*.ani)的资源文件
用brcc32.exe进行编译，随后在delphi的实现部分用
{$R 资源文件名称}
进行引用
我给出从资源读取光标的代码，你可以把它放到你的程序中
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;
你可以在窗体的OnCreate事件中写以下代码
ZloadfromResourse(2,'myicon');
self.cursor:=2;
这样就能看到你自定义的光标了