限制鼠标的移动区域 (2000年7月7日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 23 行

限制鼠标的移动区域 (2000年7月7日) 

本站更新  分类:   作者:srw  推荐:   阅读次数:724  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
下面把鼠标的移动区域限制在(10,10,200,200)

var rect:TRect;
begin
rect.Left:=10;
rect.Top:=10;
rect.Bottom:=200;
rect.Right:=200;
windows.ClipCursor(@rect);



下面恢复鼠标的移动区域
windows.ClipCursor(0);