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