procedure TForm1.Button3Click(Sender: TObject); var rtButton4:TRect; begin //获取Button4控件的坐标区域 rtButton4:=Button4.BoundsRect; //将坐标转换为屏幕坐标 MapWindowPoints(handle,0,rtButton4,2); //将坐标移动的范围限制在Button4控件上 ClipCursor(@rtButton4); end;
转自:http://zhidao.baidu.com/question/86448742.html
|
请发表评论