两个顶层表单 如何用命令指定,一个表单在前,一个在后
请教:两个顶层表单(form1,from2) 如何用命令指定,一个表单在前,一个在后我用这个方法时灵时不灵
PUBLIC pform,pform2
pform1=0
pform2=0
For lnFor=1 to _VFP.Forms.Count
if _VFP.Forms(lnFor).name=''
pform1=lnFor
ENDIF
ENDFOR
For lnFor=1 to _VFP.Forms.Count
if _VFP.Forms(lnFor).name='form2'
pform2=lnFor
ENDIF
ENDFOR
然后我就和这个方式来控制那个在最前面
_VFP.Forms(pform2).AlwaysOnTop=.f.
_VFP.Forms(pform).AlwaysOnTop=.t.