发信人: 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就可以了。
---- 问彩云何处飞,愿成风永追随。
有奇缘能相聚,死也无悔。
我柔情深似海,你痴心可问天。
誓相守长缱绻,岁岁年年。 |
|