TMouse

TMouse2008-04-04TMouse类包含鼠标的信息。

类关系 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消息