|
#2
laowan0012024-01-25 16:30
|
请问如何让多个顶层表单，指定一个表单在最前面，我用了这个方法，超过3个时有一个不显示不知什么原因
For lnFor=1 to _VFP.Forms.Count
if _VFP.Forms(lnFor).name='【001】'
pform=lnFor
ENDIF
ENDFOR
For lnFor=1 to _VFP.Forms.Count
if _VFP.Forms(lnFor).name='【002】'
pform2=lnFor
ENDIF
ENDFOR
For lnFor=1 to _VFP.Forms.Count
if _VFP.Forms(lnFor).name='【003】'
pform3=lnFor
ENDIF
ENDFOR
For lnFor=1 to _VFP.Forms.Count
if _VFP.Forms(lnFor).name='【004】'
pform4=lnFor
ENDIF
ENDFOR
DO case
CASE _VFP.Forms(pform).AlwaysOnTop=.t.
_VFP.Forms(pform).AlwaysOnTop=.f.
_VFP.Forms(pform2).AlwaysOnTop=.t.
_VFP.Forms(pform3).AlwaysOnTop=.f.
_VFP.Forms(pform4).AlwaysOnTop=.t.
_VFP.Forms(pform).AlwaysOnBottom=.t.
_VFP.Forms(pform2).AlwaysOnBottom=.f.
_VFP.Forms(pform3).AlwaysOnBottom=.t.
_VFP.Forms(pform4).AlwaysOnBottom=.t.
CASE _VFP.Forms(pform2).AlwaysOnTop=.t.
_VFP.Forms(pform).AlwaysOnTop=.f.
_VFP.Forms(pform2).AlwaysOnTop=.f.
_VFP.Forms(pform3).AlwaysOnTop=.t.
_VFP.Forms(pform4).AlwaysOnTop=.f.
_VFP.Forms(pform).AlwaysOnBottom=.t.
_VFP.Forms(pform2).AlwaysOnBottom=.t.
_VFP.Forms(pform3).AlwaysOnBottom=.f.
_VFP.Forms(pform4).AlwaysOnBottom=.t.
CASE _VFP.Forms(pform3).AlwaysOnTop=.t.
_VFP.Forms(pform).AlwaysOnTop=.f.
_VFP.Forms(pform2).AlwaysOnTop=.f.
_VFP.Forms(pform3).AlwaysOnTop=.f.
_VFP.Forms(pform4).AlwaysOnTop=.t.
_VFP.Forms(pform).AlwaysOnBottom=.t.
_VFP.Forms(pform2).AlwaysOnBottom=.t.
_VFP.Forms(pform3).AlwaysOnBottom=.t.
_VFP.Forms(pform4).AlwaysOnBottom=.f.
CASE _VFP.Forms(pform4).AlwaysOnTop=.t.
_VFP.Forms(pform).AlwaysOnTop=.t.
_VFP.Forms(pform2).AlwaysOnTop=.f.
_VFP.Forms(pform3).AlwaysOnTop=.f.
_VFP.Forms(pform4).AlwaysOnTop=.f.
_VFP.Forms(pform).AlwaysOnBottom=.f.
_VFP.Forms(pform2).AlwaysOnBottom=.t.
_VFP.Forms(pform3).AlwaysOnBottom=.t.
_VFP.Forms(pform4).AlwaysOnBottom=.t.
ENDCASE
