发信人: lihai155(天琴)
整理人: teleme(2001-02-01 20:10:46), 站内信件
|
【 在 kunchen 的大作中提到：】
:小弟，想设计一个固定大小的窗口（不是最大化的），运行完鼠标只能窗口内移动并操作，超过此窗口就鼠标操作无效，除非点击窗口上的退出按钮并输入密码才能退出，否则无法退出，窗口上无法改变大小（无最大化，最小化，关闭按钮），请大家多帮忙！
:......
限制鼠标范围：
var
rtButton2: TRect;
////////////////////
rtButton2 := MainFrm.ClientRect;
MapWindowPoints(handle, 0, rtButton2, 2); // 座标换算
ClipCursor(@rtButton2); // 限制鼠标移动区域
取消限制：
var
rtScreen: TRect;
///////////////////////
rtScreen := Rect(0, 0, Screen.Width, Screen.Height);
ClipCursor(@rtScreen);
////////////////////////
窗口无最大化、最小化等比较简单，设置窗口的BORDERSTYLE就可以了。
----
问彩云何处飞，愿成风永追随。
有奇缘能相聚，死也无悔。
我柔情深似海，你痴心可问天。
誓相守长缱绻，岁岁年年。 |
|