杭州交通信息网创维电视机主板坏了:delphi我想自定义鼠标，怎么弄
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/13 16:48:45
我想自定义鼠标，不用delphi里面事的
要怎么做啊
自己搞定了
没用上你的代码，一直都 有错，总是弄不好
还是谢谢
要怎么做啊
自己搞定了
没用上你的代码，一直都 有错，总是弄不好
还是谢谢
先制作一个包含光标文件(*.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;
这样就能看到你自定义的光标了