同时打开form和form1，请问如何保证form1和form的相对位置始终保持不变。.
我在主form重打开一个新的form1，请问如何让form1和主form的相对位置保持不变。如何主form移动，那么form1也跟着移动。form1和主form的相对位置始终保持不变。
谢谢。

如何同时打开两个表单的

在主表单form中点击按钮按钮打开form1.或是在主表单form的init中用do form..打开表单form1。

在form1的Moved事件中写上代码就可以了， form2.left=form1.left+左边距， form2.top=form1.top+上边距

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编辑过]

你好，多谢提供代码。但是这个代码可以form1可以form的拖动而变动，但是form1在form中的位置是变动的。form的位置越是向左，form1距离form的左边就越近。请问下如何让form1在form中的位置不变。就是不管form怎么拖动。form1距离form的左边和上边的距离不变。

在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编辑过]

我试试，多谢。