| TMouse |
| 责任编辑：admin 更新日期：2005-8-6 |
|
|
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属性被更新。 |
|
