TMouse

【 tulaoshi.com - 编程语言 】

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