精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>图形界面和窗体>>Re:特殊窗口?

主题:Re:特殊窗口?
发信人: 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就可以了。


----
问彩云何处飞,愿成风永追随。
有奇缘能相聚,死也无悔。
我柔情深似海,你痴心可问天。
誓相守长缱绻,岁岁年年。

[关闭][返回]