在Delphi程序中使用自定义的鼠标


本文整理自网络,侵删。

 一. 建立工程与一个资源档
1. File | New Project
2. File | Save Project, 将 unit1 与 project1 存起来
假定是 c:\temp 目录
3. Tools | Image Editor, 利用 Image Editor 新开一个
资源档( Fild | New | Resource File )
4. 在这个资源档中新建一个 CURSOR_1 的 CURSOR, 设定
好它的 *** Spot( Image | *** Spot )
5. 将资源档存起来, 存档时注意要和上述的 Project 存在
同一个目录,且不要与 project 的原资源档档名重覆,
在本例我们先假定为 MyCursor.res
二. 程序部分
6. 定义一个常数, 这个常数您必须设成大於零的任何整数
7. 以 LoadCursor() 函数将自订的鼠标资源 load 进来
以下为源代码
// unit.pas
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics, Controls, Forms, Dialogs;



const
crMyCursor = 1; (* 宣告一个常数 *)
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
{$R mycursor.res} // 这行 $R 不可少, 否则自订的鼠游标就出不来了
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
//将鼠标资源 load 进来
Screen.Cursors[crMyCursor] := LoadCursor(hInstance,
'CURSOR_1');
//指定 form1 的 cursor 为自订鼠标
Cursor := crMyCursor;
// 指定 Button1 的 cursor 为自订鼠标
Button1.Cursor := crMyCursor;
end;
end.

相关阅读 >>

Delphi xe5 android toast

secsperday:一天共有多少秒

Delphi searchbox1 基本用法

Delphi word转pdf两种方法

Delphi实现win10下Delphi 10.3.1 inline hook 调试器法获取寄存器并修改

Delphi判断线程是否释放

Delphi获得某个磁盘或是文件夹的所有子目录

Delphi 去字符串长度函数 strlen,length

Delphi取得cxgrid 合计数

Delphi 阿里云发送短信的Delphi单元

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...