请教：两个顶层表单（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.
  

试试Zorder()

两个顶层表单，有点儿类似2个exe，在状态栏中能看到2个窗口标题，鼠标、键盘可以切换激活、置顶状态。
你这样有啥特殊需求吗？

用于定时切换两个表单的显示。这两个表单没有最大最小关闭按钮没有caption，直接都是全屏。一个显示1分钟，然后另一个显示15秒，以此循环展示数据

[此贴子已经被作者于2024-5-8 13:17编辑过]

大佬，我改成这样没有一点效果，不知什么地方写错了
PUBLIC pform,pform2
pform1=0
pform2=0
For lnFor=1 to _VFP.Forms.Count
    if  _VFP.Forms(lnFor).name='form1'
        pform1=lnFor
    ENDIF
ENDFOR
For lnFor=1 to _VFP.Forms.Count
    if  _VFP.Forms(lnFor).name='form2'
        pform2=lnFor
    ENDIF
ENDFOR

_VFP.Forms(pform2).zorder(0)
_VFP.Forms(pform1).zorder(1)

没必要，直接一个表单，上面的控件，按你的要求设置可见和不可见就行了

_VFP.Forms(pform2).show
试试

Declare Long SetWindowPos In "user32" long hwnd,long hwndInsertAfter,long x,long y,long cx,long cy,long wFlags

换个思路，设置表单可见性 Visible

[此贴子已经被作者于2024-5-9 07:17编辑过]

用visible的方法也是我最早的方法，这个方法不行，可能是定时器的原因，到秒时没有及时show hide导致出问题。现在用了其他方法已实现