TMouse

TMouse类包含鼠标的信息。

类关系 TObject

TMouse类使用全局鼠标变量来得到鼠标的信息。

属性列表

Capture 指定获得鼠标事件的窗口的句柄

CursorPos 指定鼠标光标的位置

DragImmediate 确定是否单击鼠标左键就立即开始一个Drag事件

DragThreshold 确定为了产生一个鼠标事件，当鼠标左键按下后鼠标光标必须移动的像素点数

MousePresent 确定是否一个鼠标在系统中。

RegWheelMessage 确定当用户滚动鼠标滚轮时产生的Windows信息

WheelPresent 确定鼠标是否有滚轮

WheelScrollLines 确定鼠标滚轮每次旋转卷动的行数

方法列表

Create 建立并初始化一个鼠标对象

Destroy 删除一个TMouse类的实例

SettingChanged 当一个鼠标的设置被改变时被调用

属性

TMouse::Capture

确定获得鼠标事件的窗口的句柄。

property Capture: HWND;

使用Capture属性来获得正在捕获鼠标事件的窗口。

TMouse::CursorPos

指定鼠标光标的位置

property CursorPos: TPoint;

使用CursorPos属性来获得鼠标光标的位置。CursorPos包含光标的屏幕绝对坐标。

TMouse::DragImmediate

确定是否单击鼠标左键就立即开始一个Drag事件

property DragImmediate: Boolean;

使用dragImmediate属性决定是否单击鼠标左键就立即产生一个Drag事件。如果DragImmidiate值为False，则Drag事件将延迟到鼠标光标移动了由DragThreshold属性指定的像素点数再产生。

TMouse::DragThreshold

确定为了产生一个鼠标事件，当鼠标左键按下后鼠标光标必须移动的像素点数。

property DragThreshold: Integer;

使用DragThreshold确定为了产生一个鼠标事件，当鼠标左键按下后鼠标光标必须移动的像素点数。

TMouse::MousePresent

确定是否一个鼠标在系统中。

property MousePresent: Boolean;

用MousePresent属性判定系统中是否存在鼠标。

TMouse::RegWheelMessage

确定当用户滚动鼠标滚轮时产生的Windows消息

type UINT = LongWord;

property RegWheelMessage: UINT;

使用RegWheelMessage属性当用户滚动鼠标滚轮时发送的Windows消息。

TMouse::WheelPresent

确定鼠标是否有滚轮。

property WheelPresent: Boolean;

使用WheelPresent属性判断鼠标是否有滚轮。

TMouse::WheelScrollLines

确定确定鼠标滚轮每次旋转卷动的行数

property WheelScrollLines: Integer;

使用WheelScrollLines属性确定鼠标滚轮每次旋转卷动的行数。

WheelScrollLines属性可以在Windows控制面板上的Mouse项设置。

方法

TMouse::Create

建立并初始化一个鼠标对象。

constructor Create;

使用Create方法建立并初始化一个鼠标对象。

Create方法将DragImmediate属性设为True，DragThreshold属性设为5。

TMouse::Destroy

删除一个TMouse类的实例。

destructor Destroy; override;

不要直接调用Destroy。而是调用Free方法。

Destroy方法调用继承的析构函数并且设置Capture属性为0。

TMouse::SettingChanged

当一个鼠标的设置被改变时被调用。

procedure SettingChanged(int Setting);

当鼠标的设置在控制面板上被改变时越过SettingChanged方法来执行动作。

缺省情况下。WheelScrollLines属性被更新。

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!