而且发现BindEvent()的一个不足就是把命令按钮的CLICK托管到Form后 只要在Form上任意一点点击都将实现点击结果。。。。
这个。。这个。。

那再去试试。。。

原来要放到IF --ENDIF 中间


[ 本帖最后由 有容就大 于 2012-9-23 22:22 编辑 ]

是这样吧 哈哈 效果不错。。

        If  .Key.ask_Button == .T.
                           .AddObject("Ctnr_Button","CommandButton")
                    With This.Ctnr_Button
                          .Height = 30
                          .Caption = This.Key.btn_Caption
                          .Left = This.Ctnr_Text.Left + This.Ctnr_Text.Width + ln_Space
                          .Top = This.Key.chg_Height / 2 - .Height / 2                             
                                  .Width = 100                                 
                               EndWith
                            Do case
                                Case  This.Key.ID == "Number"
                                BindEvent(.Ctnr_Button, "Click", This, "Click_Number")
                            EndCase
                           EndIf                         
                           .SetAll("Visible", .T.)
                           .SetAll("FontSize", 16)
                           .SetAll("Alignment", 2) 
                           .SetAll("FontBold", 1)
                           .Height = .Key.chg_Height       
            EndWith
        EndProc    
       
        Procedure Click_Number
            MessageBox("Hhahaha")
        EndProc

加强了下 效果很好 老大 敬茶

[ 本帖最后由 有容就大 于 2012-9-23 22:29 编辑 ]

问题是我先自定义一个容器类 里面用addObject()分别添加了一个 Label 一个 TextBox 一个 CommandButton
然后才在MainForm里 又用循环addObject()了8个自定义容器类对象
如果直接在Form里 Add Object XXX As OOO with .....
那么就要add 3 * 8 = 24个对象。。。

那这样 如果要改变容器里面的某控件大小的时候 就要额外的写init代码 24个要改变10个以上就很繁琐了吧
如果还要移除某个控件 又要额外写removeObject代码 如果在移除的地方在添加一个不一样的控件又要写代码
那我还不如用数组参数直接传算了。。。

老大 这个ADD OBJCET 能用结构体数组做参数传吗？ 后面那个With cPropertyList 能写成With ga_Struct[i]吗？

为了显示 结果 我把你的程序稍作了修改 基本上能理清了
不过就是那个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用不了？

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

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