Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:09:48
delphi函数SetSystemCursor自定义鼠标

自定义鼠标

通常鼠标形状是默认的箭头形状，本例演示如何通过编程来改变鼠标的形状，使程序可以更好地和用户交互。单击 “改变光标”按钮将鼠标形状，单击“恢复原型”按钮将鼠标改为默认形状。

Windows 提供设定鼠标形状的API 函数SetSystemCursor，首先要通过调用由LoadCursorFromFile读入的光标文件，然后调用SetSystemCursor 设定系统默认鼠标。它们的函数原型如下：

HCURSOR LoadCursorFromFile ( LPCTSTR lpFileName );

BOOL SetSystemCursor ( HCURSOR hcur, DWORD id );

如果要恢复Windows 默认形状，可以调用函数SystemParametersinfo，它的函数原型如下：

BOOL SystemParametersInfo(

UINT uiAction, //查询还是设定系统参数

UINT uiParam, //该参数取决于要采取的动作

PVOID pvParam, //该参数取决于要采取的动作

UINT fWinIni //用户配置文件更新标志

);

下面利用一个示例来介绍自定义鼠标的方法。

（1）创建一个新Delphi 项目，为窗体添加两个按钮，标题分别设为“改变光标”和“恢复原型”。

（2）添加“改变光标”按钮的OnClick 事件的处理过程，用来改变光标的形状，代码如下：

procedure TForm1.Button1Click(Sender: TObject);

var

h: HCURSOR;

begin

h:=LoadCursorFromFile(’3dsmove.cur’);

SetSystemCursor(h,ocr_normal);

end;

（3）添加“恢复原型”按钮的OnClick 事件的处理过程，用来将光标设为Windows 默认的形状，

代码如下：

procedure TForm1.Button2Click(Sender: TObject);

begin

SystemParametersinfo(SPI_SETCURSORS,0,nil,SPIF_SENDCHANGE);

end;

赞