如何将鼠标锁定在一定的范围内呢 (2001年1月8日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 30 行

如何将鼠标锁定在一定的范围内呢 (2001年1月8日) 

网友更新  分类:Win API   作者: nbwzw(推荐)  推荐:nbwzw   阅读次数:389  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
请在Form中放置二个 Button, 然後分别为这两个按钮定义OnClick响应事件如下: 
// 限制 
procedure TForm1.Button1Click(Sender: TObject); 
var 
rtButton2: TRect; 
begin 
rtButton2 := Button2.BoundsRect; 
MapWindowPoints(handle, 0, rtButton2, 2); // 座标换算 
ClipCursor(@rtButton2); // 限制鼠标移动区域 
end; 

// 还原 
procedure TForm1.Button2Click(Sender: TObject); 
var 
rtScreen: TRect; 
begin 
rtScreen := Rect(0, 0, Screen.Width, Screen.Height); 
ClipCursor(@rtScreen); 
end;  
 


--------------------------------------------------------------------------------