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属性被更新。