为了显示 结果 我把你的程序稍作了修改 基本上能理清了
不过就是那个Valid事件没搞懂 按理说TextBox是空的话 焦点就还在他上面 不空就焦点跑走
那为什么我输入0后提示一个无效的输入 然后就关不掉这个窗口？ 我ALT + CTRL + DEL 了好多次啊

Clear All
Main()

Procedure Main()
    Local lo_MainForm

    lo_MainForm = NewObject("C_Form")
    lo_MainForm.Show
    Read Events
    Return

EndProc


DEFINE CLASS C_Form AS Form
    AutoCenter = .T.
    Width = 600
    Height = 600
        PROCEDURE Init
            FOR i = 1 TO 8
                lc_Name = "xx" + TRANSFORM(i)
                This.AddObject(lc_Name, "myClass")
                WITH This.&lc_Name
                    .Caption = "Caption + " + TRANSFORM(i)
                    .Height = 20 + 5 * (i - 1)
                    .Top = .Height * (i - 1)
                    .Width = 300
                    .Visible = .T.
                    .Resize
                ENDWITH
            NEXT
        ENDPROC

    PROCEDURE Click
        ThisForm.SetAll("Caption", "bbb")
    ENDPROC

ENDDEFINE

DEFINE CLASS myClass AS Container
    Caption = ""
    ADD OBJECT Label1 AS Label WITH Caption = "aaa", Left = 10, Top = 0, Width = 40, Height = 20
    ADD Object TextBox1 AS TextBox with Left =200, value = 10, Top = 0, Width = 40, Height = 20

    PROCEDURE Resize
        WITH This
            .SetAll("Height", .Height)
        ENDWITH
    ENDPROC

    PROCEDURE TextBox1.Valid
    With This
        IF EMPTY(This.Value)
            RETURN .F.
        EndIf
        EndWith

    EndProc
   

    Procedure Destroy
        Clear Events
    EndProc


ENDDEFINE

---

呵呵 这么改输入0不会出现无效输入的提示 但是仍然关闭不了 窗口 。不理解其中的机理
 为什么有时候 窗口上面的X用不了？

    Procedure Destroy
        Clear Events
        ON SHUTDOWN QUIT &&退出VFP
    EndProc

或者加一个事件退出方法
    Procedure UNLOAD
        Clear Events
    EndProc

试一下上面两个方法单独用一个是否管用
可能与定义的变量未释放有关系。

[ 本帖最后由 bccn201203 于 2012-9-24 09:34 编辑 ]

试了下 还是不成 on shutdown quit的quit是白色的 说明不是系统命令？

ON SHUTDOWN QUIT
我在代码中试了下可以用
用UNLOAD事件试试

QUIT 是VFP命令

[ 本帖最后由 bccn201203 于 2012-9-24 10:08 编辑 ]

都试过了
只要把一个文本框的内容清空 按enter光标还在这个地方 出现一个0 这时是无法关闭窗口的
如果重新在这个文本框输入不是0的值 按enter 光标下移 而且这个能把窗口关掉 但是貌似出现没退出？

TEXT1的值为空，程序肯定不让你退出
PROCEDURE DESTROY
CLEAR EVENTS
QUIT
ENDPROC

在Valid事件中检查合法性，最好不要强制不能离开，换一种方式出提示，不用默认的那个。

跟着各位大佬学习。