求助关于表单背景的问题

[ttt810]

我把一个表单作为背景后，新打开一个表单，鼠标在新打开的表单外（背景表单上）点一下，背景表单就变成当前表单了，将刚才打开的表单盖住。请问怎么解决？

另外，我将新打开的表单的WINDOESTYPE设为1后，上面的问题就解决了。可是又有新问题出现了：假设现在有两个表单（bd1,bd2），一个表单为输入表单，另一个表单显示计算结果。第一个表单输入结束点确认，click程序为：do form bd2
bd2.text1.value=thisform.text1.value*0.5
thisform.release
但运行时提示“bd2不是一个对象”。当windowstype设为0时没有这个提示，请问这个问题应该怎么解决？
谢谢！

[tdkj6236]

1、你想让bd2.text1.value=thisform.text1.value*0.5,最好把bd1.text1.value做为参数传到bd2上。
代码：x=thisform.text1.value
do form bd2 with x
在bd2表单的init中写入：para x
thisform.text1.value=x*0.5
2、在把bd1设为1-顶层表单后，打开多个表单就会产生“bd2不是一个对象”的问题，解决的方法是在要找的对象的init中写入：public bd2
bd2=this
(刚学的)

[ttt810]

多谢LAIYANGPJ关于表单集的解释

[dfwxj]

可以用顶层表单

[淡蓝冰]

如要在窗體a運行時﹐點擊一全按鈕﹐運行另一個窗體b﹐而當前窗體a不顯示﹐當關閉另一窗體b時﹐此窗體a又顯示。
你是要這樣的如果嗎﹖如果是﹐則按下面的做。
1.設置兩個窗體的WINDOWTYPE為1﹐即模態對話框。
2.設計按鈕的CLICK事件為﹕
THISFORM.VISIBLE=.F.
DO FROM b（注意路經）
THISFORM。VISIBLE=.T.
3.設計b窗體的退出按鈕的CLICK事件為﹕
IF MESSAGEBOX('真的要退出當前模塊嗎﹖',4+64,'系統提示')=0
THISFORM.RELEASE
ENDIF

[淡蓝冰]

對﹐最簡單的方面還是用表單集

[LAIYANGPJ]

其实你这个问题最好不要用两个表单,而使用表单集.
开始时设定THISFORMSET.BD2.VISIBLE=.F.
调用时把表单2设为当前表单,并把上面设定改为.T.表单1为.F.

[lz_zxf]

方案1
用表单集，如楼上所说

方案2
在调用bd2时用
do form bd2 with thisform.text1.value
在bd2的init事件中加入代码
lpara fff
thisform.text1.value=fff*0.5

[ttt810]

多谢大家。
由于bd2需要频繁调用，我设了个public变量x，
在bd1中令x=thisform.text1.value*0.5
在bd2的init中thisform.text1.value=x