TMouse

核心提示：TMouse类包含鼠标的信息， 类关系 TObject TMouse类使用全局鼠标变量来得到鼠标的信息，TMouse， 属性列表 Capture 指定获得鼠标事件的窗口的句柄 CursorPos 指定鼠标光标的位置 DragImmediate 确定是否单击鼠标左键就立即开始一个Drag事件 DragThreshold

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