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