当前窗口移出屏幕就弹回来，并提示不得将软件移出屏幕

hadisi

超出屏幕边缘后，弹出信息框后，点击确认后，可以再把窗口弹回来吗？或者是超出的地方移动回来，离屏幕边缘有点距离也行。 1.rar (874 Bytes, 下载次数: 12)

2014-1-8 16:44 上传

点击文件名下载附件

hxf1632

不可能啊，怎么在我这里好好的。那你直接下载源码吧。

hxf1632

[e]

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_位置被改变

.如果真 (_启动窗口.左边 ≤ 0 或 _启动窗口.顶边 ≤ 0 或 _启动窗口.左边 ≥ 取屏幕宽度 () － _启动窗口.宽度 或 _启动窗口.顶边 ≥ 取屏幕高度 () － _启动窗口.高度)
    信息框 (“请不要越界!”, 0, )
    移动 (取屏幕宽度 () ÷ 2 － _启动窗口.宽度, 取屏幕高度 () ÷ 2 － _启动窗口.高度, , )

.如果真结束

[/e]

hxf1632

我这有现成的代码，刚才给另外一个人写的，那人没有采纳我的。

hxf1632

[e]
.版本 2

.程序集 窗口程序集2

.子程序 _主播放界面_创建完毕



.子程序 _主播放界面_位置被改变

.如果真 (_启动窗口.左边 ≤ 0 或 _启动窗口.顶边 ≤ 0 或 _启动窗口.左边 ≥ 取屏幕宽度 () － _启动窗口.宽度 或 _启动窗口.顶边 ≥ 取屏幕高度 () － _启动窗口.高度)
    信息框 (“请不要越界!”, 0, )
    移动 (取屏幕宽度 () ÷ 2 － _启动窗口.宽度, 取屏幕高度 () ÷ 2 － _启动窗口.高度, , )
.如果真结束

[/e]

补充内容 (2014-1-8 16:50):
发错了。其实你自己复制下就行了。

hxf1632

[e]
.版本 2

.子程序 _主播放界面_位置被改变

.如果真 (_启动窗口.左边 ≤ 0 或 _启动窗口.顶边 ≤ 0 或 _启动窗口.左边 ≥ 取屏幕宽度 () － _启动窗口.宽度 或 _启动窗口.顶边 ≥ 取屏幕高度 () － _启动窗口.高度)
    信息框 (“请不要越界!”, 0, )
    移动 (取屏幕宽度 () ÷ 2 － _启动窗口.宽度, 取屏幕高度 () ÷ 2 － _启动窗口.高度, , )
[/e]

补充内容 (2014-1-8 16:51):
把信息框换个位置。

hxf1632

[e]
.版本 2

.子程序 _主播放界面_位置被改变

.如果真 (_启动窗口.左边 ≤ 0 或 _启动窗口.顶边 ≤ 0 或 _启动窗口.左边 ≥ 取屏幕宽度 () － _启动窗口.宽度 或 _启动窗口.顶边 ≥ 取屏幕高度 () － _启动窗口.高度)
    移动 (取屏幕宽度 () ÷ 2 － _启动窗口.宽度, 取屏幕高度 () ÷ 2 － _启动窗口.高度, , )
    信息框 (“请不要越界!”, 0, )
[/e]

补充内容 (2014-1-8 16:52):
这个应该行了，到边界就弹回中间，并提示。

hadisi

hxf1632 发表于 2014-1-8 16:50
[e]
.版本 2

这个不对了，不超出屏幕也提示。

hxf1632

[e]
.版本 2

.子程序 _主播放界面_位置被改变

.如果真 (主播放界面.左边 ≤ 0 或 主播放界面.顶边 ≤ 0 或 主播放界面.左边 ≥ 取屏幕宽度 () － 主播放界面.宽度 或 _启动窗口.顶边 ≥ 取屏幕高度 () － _启动窗口.高度)
    移动 (取屏幕宽度 () ÷ 2 － 主播放界面.宽度, 取屏幕高度 () ÷ 2 － 主播放界面.高度, , )
    信息框 (“请不要越界!”, 0, )
[/e]

hxf1632

hadisi 发表于 2014-1-8 16:53
这个不对了，不超出屏幕也提示。

只是提示推迟了，不是不超出屏幕也提示。，你可以试试。