把那个Click事件换成别的自定义名字，不用内置的事件名字也可以。

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

        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 编辑 ]

你34楼的写法不用那样的，像我33楼那样就可以，不用总用BindEvent()，那是特殊情况下才用的。

BindEvent()这种，就是C#的委托语法。

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

在自定义容器中固定3个控件，从这个类派生8个实例对象，每个对象都天生带3个控件，亦即24个控件。

你要明白，类是设计代码，这个类设计时就设计它容纳3个控件，这是这个类的固有表现，用类生成对象，就按类定义的模板出实物。类是设计蓝图，对象是实物。除非类设计本身就不确定有多少控件，才用AddObject()动态创建对象，否则，直接在图纸上安排模型就可以了。

[ 本帖最后由 TonyDeng 于 2012-9-23 22:41 编辑 ]

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

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

DEFINE CLASS C_Form AS Form

    PROCEDURE Init
        FOR i = 1 TO 8
            lc_Name = "xx" + TRANSFORM(i)
            ThisForm.AddObject(lc_Name, "myClass")
            WITH ThisForm.&lc_Name
                .Label1.Caption = "Caption + " + TRANSFORM(i)
                .Height = 20 + 5 * (i - 1)
                .Width = 200
                .Visible = .T.
                .Resize
            ENDWITH
            IF i == 2
                BindEvent(ThisForm.&lc_Name..Label1, "Click", This, "Click1")
            ENDIF
        NEXT
    ENDPROC

    PROCEDURE Click1
        ThisForm.xx.Label1.Caption = "bbb"
    ENDPROC

ENDDEFINE

DEFINE CLASS myClass AS Container
   
    ADD OBJECT Label1 AS Label WITH Caption = "aaa"
    ADD Object TextBox1 AS TextBox

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

    PROCEDURE TextBox1.Valid
        IF EMPTY(This.Value)
            RETURN .F.
        ENDIF
    ENDPROC

ENDDEFINE

没运行，其余的你自己修改测试一下。

[ 本帖最后由 TonyDeng 于 2012-9-23 23:10 编辑 ]

用自定义属性接收结构体参数