procedure TForm1.Button1Click(Sender: TObject);
var
rtButton2: TRect;
begin
rtButton2 := Button2.BoundsRect;
MapWindowPoints(handle, 0, rtButton2, 2); // 座标换算
ClipCursor(@rtButton2); // 限制鼠标移动区域
end;
var
rtButton2: TRect;
begin
rtButton2 := Button2.BoundsRect;
MapWindowPoints(handle, 0, rtButton2, 2); // 座标换算
ClipCursor(@rtButton2); // 限制鼠标移动区域
end;
解决方案 »
- 请教各位老师
- 关于大小写转换的问题
- TreeView的接点问题~详细内容请看里面,UP有分
- 请问如何缩小或者放大一个bmp图像
- 我写的最新看密码的程序。附带源代码
- autoUpgrader控件问题.~求解说~探讨这个控件的运行过程..找出出错原因..
- 一个Edit失去焦点的消息是什么?
- 如何设置stringgrid的cells为红色,或则其他什么颜色!
- 在Delphi中TDateTime是8字节,而在VC中time_t是4字节,怎么实现兼容的问题?
- 如何在delphi中读取c的浮点数格式(float)4字节?
- 各位大虾请帮帮小弟。—》怎样打印stringgrid的内容,如何改变打印的分辨率(stringgrid)?
- 关于delphi的安全登录问题(高手请进)
另外可以用一下方法~~rtScreen: TRect;
begin
rtScreen := Rect(0, 0, Screen.Width, Screen.Height);
ClipCursor(@rtScreen);
end;