再题一次,如何画一个彩色的鼠标指针,delphi的image editor和vc好像都不行 直接使用RESOURCE文件把你做的彩色COUSOR,加入到RESOURCE文件中再调用 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Image Edit只能处理黑色Cursor,可以通过把一个彩色Icon图标加载到屏幕Cursors如下,新建一个空窗体,在窗体的OnShow事件创建一个位图资源,从图标文件中加载位图,再将它赋给窗体的光标,ColorArow.ico为当前目录下你设计的彩色图标:procedure TForm1.FormShow(Sender: TObject);var BmpImage:TImage;begin BmpImage:=TImage.Create(Self); BmpImage.Picture.LoadFromFile('ColorArow.ico'); Screen.Cursors[1] := BmpImage.Picture.Icon.Handle; Form1.Cursor := 1;end; VC的可以做到:File-->New-->Files-->Cursor File-->然后在Cursor编辑窗口有一个Devie的Combobox,在Combobox的旁边有一个按钮,点击一下,会出来一个对话框,点击Custom....,然后就可以自己配置了。:)不过最多只能有256色。 Zheast(zheast)方法可行,但是能设置热点吗,还有vc的资源文件delphi能用吗 改为: Screen.cursors[1]:= Loadcursorfromfile('ColorArow.ico');热点同原箭头光标 64位系统能直接运行32位的DLL和EXE吗? 怎样用delphi调用oracle存储过程返回的结果集 最近一段时间又要加班,散分。 在DELPHIH ,用两个存储过程实现主从表 软件升级技术. 如何直接将word文档存储到sql数据库,使用ole能不能办到?如何处理?急!! 帮忙看一个查询语句 有仁兄贴过delphi网站及好书,烦您再贴一次吧! 好例子讲解的教材,推荐一下! 高分征解:两个小问题,或许您也会碰到..... 如何建立类似网上邻居一样的虚拟目录 Delphi5的quickreport预缆时掉线有没解决?关闭预缆时返回的query1总会回到first吗?
再将它赋给窗体的光标,ColorArow.ico为当前目录下你设计的彩色图标:procedure TForm1.FormShow(Sender: TObject);
var
BmpImage:TImage;
begin
BmpImage:=TImage.Create(Self);
BmpImage.Picture.LoadFromFile('ColorArow.ico');
Screen.Cursors[1] := BmpImage.Picture.Icon.Handle;
Form1.Cursor := 1;
end;
File-->New-->Files-->Cursor File-->
然后在Cursor编辑窗口有一个Devie的Combobox,在Combobox的旁边有一个按钮,点击一下,会出来一个对话框,点击Custom....,然后就可以自己配置了。:)
不过最多只能有256色。
Screen.cursors[1]:= Loadcursorfromfile('ColorArow.ico');
热点同原箭头光标