| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 228 人关注过本帖
标题:同时打开form和form1,请问如何保证form1和form的相对位置始终保持不变。
只看楼主 加入收藏
silandn
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2020-4-3
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:7 
同时打开form和form1,请问如何保证form1和form的相对位置始终保持不变。
同时打开form和form1,请问如何保证form1和form的相对位置始终保持不变。.
我在主form重打开一个新的form1,请问如何让form1和主form的相对位置保持不变。如何主form移动,那么form1也跟着移动。form1和主form的相对位置始终保持不变。
谢谢。
搜索更多相关主题的帖子: 位置 打开 同时 form 移动 
2020-05-22 16:37
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:215
帖 子:8060
专家分:20463
注 册:2012-2-5
收藏
得分:7 
如何同时打开两个表单的

坚守VFP最后的阵地
2020-05-22 16:57
silandn
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2020-4-3
收藏
得分:0 
在主表单form中点击按钮按钮打开form1.或是在主表单form的init中用do form..打开表单form1。
2020-05-22 17:04
qiuxingce
Rank: 2
等 级:论坛游民
帖 子:114
专家分:81
注 册:2014-1-17
收藏
得分:7 
在form1的Moved事件中写上代码就可以了, form2.left=form1.left+左边距, form2.top=form1.top+上边距
2020-05-22 17:16
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:215
帖 子:8060
专家分:20463
注 册:2012-2-5
收藏
得分:0 
form表单中定义两个属性nleft、ntop
form.init
PUBLIC aa
DO FORM form1.scx NAME aa
thisform.nleft = aa.left
thisform.ntop = aa.top

form.moved
aa.left = thisform.Left + thisform.nleft
aa.top = thisform.top + thisform.ntop

form.queryunload
aa.release
release aa

[此贴子已经被作者于2020-5-22 17:48编辑过]


坚守VFP最后的阵地
2020-05-22 17:35
silandn
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2020-4-3
收藏
得分:0 
回复 5楼 sdta
你好,多谢提供代码。但是这个代码可以form1可以form的拖动而变动,但是form1在form中的位置是变动的。form的位置越是向左,form1距离form的左边就越近。请问下如何让form1在form中的位置不变。就是不管form怎么拖动。form1距离form的左边和上边的距离不变。
2020-05-23 10:54
xuminxz
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:17
帖 子:430
专家分:1293
注 册:2011-5-8
收藏
得分:7 
在form表单中
load中加入
pulbic ndataL,ndatar
ndatal=-10000
ndatat=0
moved中加入
if ndatal=-10000
    return
endif
form1.left=this.left+ndatal
form1.top=this.top+ndatat
在form1 init中加入
ndatal=this.left-form.left
ndatat=this.top-form.top


   

[此贴子已经被作者于2020-5-23 16:43编辑过]


dBase有人接盘了。
2020-05-23 16:41
silandn
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2020-4-3
收藏
得分:0 
回复 7楼 xuminxz
我试试,多谢。
2020-05-24 14:03
快速回复:同时打开form和form1,请问如何保证form1和form的相对位置始终保持不变 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.065546 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved