菜鳥菜問(10分)

如何實現將鼠標鎖定在一個范圍內移動﹐比如長方形

给你个例子<br>procedure TForm1.Button2Click(Sender: TObject); <br>var <br> con:trect; <br>begin <br> // 获取Button1组件的坐标 <br> con:=button1.BoundsRect; <br> // 将坐标转换为屏幕坐标 <br> MapWindowPoints(handle, 0, con, 2); <br> // 将鼠标移动的范围限制在Button1组件上 <br> ClipCursor(@con); <br>end; <br><br>procedure TForm1.Button1Click(Sender: TObject); <br>begin <br> // 取消鼠标移动范围的限制 <br> ClipCursor(0); <br>end;

procedure TForm1.Button1Click(Sender: TObject);<br>var<br> &nbsp;rtButton2 : TRect;<br>begin<br> &nbsp;rtButton2 := Button2.BoundsRect;<br> &nbsp;MapWindowPoints(handle,0,rtButton2,2);<br> &nbsp;ClipCursor(@rtButton2);<br>end;

多人接受答案了。

多謝兩位大俠﹐其實我想問的是如何實現不用按鈕實現這個事件﹐就象网吧里用的那种鎖定鼠biao只能夠在一個范圍內移動.