请教，顶层表单Visble=.t.时如何自动到最前面 - VFP论坛

laibinhua

等　级：论坛游民
威　望：1
帖　子：205
专家分：31
注　册：2010-12-23
结帖率：56.36%

楼主

已结贴√ 问题点数：20 回复次数：2

请教，顶层表单Visble=.t.时如何自动到最前面

请教，顶层表单Visble=.t.时如何自动到最前面，顶层表是2-As Top-Level Form 软件一开始将它设置成不可见 Visible=.f.  但我发如下命令让它显示出来时，它一直出现在软件的后面，要用光标在任务点它一下才会到最前面来，有什么办法可以用命令让它到最前面来
For lnFor=1 to _VFP.Forms.Count
    if  _VFP.Forms(lnFor).name='后台服务'
        pform=lnFor
        exit
    ELSE
        pform=0
    ENDIF
ENDFOR

IF pform>0
   _VFP.Forms(pform).visible=not _VFP.Forms(pform).visible
   IF _VFP.Forms(pform).visible=.t.
      _VFP.Forms(pform).activate()  &&我用这个命令来做，不行。。。请问有什么办法
   ENDIF
ENDIF

[此贴子已经被作者于2020-3-16 15:18编辑过]