请问老师，在表单中有一个命令按钮，点击后click事件循环运行语句，请问如何实现再次点击按钮终止循环；
或者再增加一个停止按钮2，点击后可以终止前面按钮运行的语句。

那不是：在事件过程中再触发该事件过程，VFP好象不能这样。

有其他 终止 表单中 命令按钮 click事件中的 循环语句 或者 终止 click事件语句 的方法吗？

[此贴子已经被作者于2018-3-22 14:47编辑过]

简单的可以用定时器，复杂的要考虑多线程、多进程。
用定时器：
** test.prg
of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as Form
    ADD OBJECT cmd as commandbutton WITH top=10,left=10,height=22,caption="开始"
    ADD OBJECT timer1 as timer WITH Interval=1000,Enabled=.F.
   
    PROCEDURE cmd.click
        thisform.timer1.Enabled = this.Caption=="开始"
        this.Caption = IIF(this.Caption=="开始", "停止", "开始")
    ENDPROC

    PROCEDURE timer1.timer
        thisform.Caption = TIME()
    ENDPROC
ENDDEFINE

虽然没有解决问题，仍然要谢谢吹老师

用检测按钮是否有点击作为循环终止条件

在事件过程中也是可以处理这种情况，但其他事务就暂时不能工作。
如：
of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as Form
    ADD OBJECT cmd as commandbutton WITH top=10,left=10,height=22,caption="开始"
    ADD OBJECT text1 as textbox WITH top=50
    PROCEDURE cmd.click
        this.Caption = "停止"
        DO WHILE .T.
            thisform.Caption = TIME()
            IF INKEY(0.01,"M") != 0
                IF AMOUSEOBJ(arr,1)>0 AND UPPER(arr[1].name)=="CMD"
                    EXIT
                ENDIF
            ENDIF
        ENDDO
        this.Caption = "开始"
    ENDPROC
ENDDEFINE

实在没有办法了，只能在表单增加运行时间选项，运行时间结束后，程序终止循环，谢谢老师！

设一个热键退出循环

也是一个好办法，谢谢老师