自己对DELPHI学习的一点体会

				如何将鼠标锁定在一定的范围内呢 (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;  
				 
				
				
				--------------------------------------------------------------------------------