计算机应用教程 网站的建设与维护,网站建立,服装网站的建设方案,视频网站开发费用Dephi中的鼠标指针是可以自由定义的#xff0c;如果是使用系统提供的图标#xff0c;那么直接通过可视控件的Cursor属性赋值就可以。例如设置Form的鼠标为 crHourGlass 沙漏#xff1a;Form1.Cursor : crHourGlass;也可以在设计期#xff08;IDE环境中#xff09;直接更改…Dephi中的鼠标指针是可以自由定义的如果是使用系统提供的图标那么直接通过可视控件的Cursor属性赋值就可以。例如设置Form的鼠标为 crHourGlass 沙漏Form1.Cursor : crHourGlass;也可以在设计期IDE环境中直接更改设置。然而有时候我们想改变下鼠标样式使用自己定义的图标这样程序更个性化。本文介绍的就是如何自定义鼠标指针样式。鼠标指针就是一种光标资源要使用自定义光标必须先得到这些光标。光标资源有两种静态光标(.cur)和动态光标(.ani)。静态光标比如常用的鼠标指针图标自身是不会变化的。动态光标就向gif图像一样可以自己变化。早期的Delphi系统自带的Image Editor就可以创建静态光标文件(.cur)不能创建动态光标(.ani。新版本的Delphi已经不带Image Editor工具了。如果要生成光标文件就需要使用专业的工具比如CursorWorkshop 等。如果不希望自己做网上也有很多做好的光标资源可以下载。如果已经有了光标资源如何在delphi程序中使用呢假定我们已经有一个owl_head.ani光标文件。第一步将owl_head.ani文件导入到工程资源中。选择Project - Resources and Images 菜单注意如果是增加静态光标(.cur)则选择Resources文件类型里边包括了.cur文件类型如果是动态光标(.ani)请选择Any file(*.*)否则看不到.ani文件。OK保存。然后在程序中如下代码procedure TForm1.FormCreate(Sender: TObject);
varcur_handle : integer;cur_index : Integer;
begin//设置光标资源索引号系统占用是21个光标资源cur_index : 23;//从资源库中装载光标cur_handle : loadcursor(Hinstance,owl_head);//将光标资源放到屏幕光标列表中索引号为 cur_indexScreen.Cursors[cur_index] : cur_handle;//设置Form的光标为 cur_indexSelf.Cursor : cur_index;
end;光标资源下载鸟的天堂包括150光标资源有静态光标也有动态光标下面是部分样例。
