为什么要叫溺水小刀:delphi我想自定义鼠标,怎么弄
来源:百度文库 编辑:高校问答 时间:2024/10/06 14:01:09
我想自定义鼠标,不用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;
这样就能看到你自定义的光标了