请教,顶层表单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编辑过]