以下是引用TonyDeng在2012-9-24 15:38:09的发言：

首先你要给自己一个理由：为什么要在某处隔层指挥别的对象？

是归属于Container1指挥的，本来就不该在Form1中超越Container1去操纵CommandButton1，Form1在逻辑上只应向Container1发指令，再由Container1按照指令操纵CommandButton1。偶然越级指挥一下，只是临时应变措施，不宜作为常规手段，那是在快速开发时避免写过多封装代码而迁就的，故没有按照完全面向对象的规范把CommandButton1隱藏起来不让外层看见，而让它直接被Form1看见，这已经没严格守规矩了，更不应该寻求跳越多层去遥控更远的对象。用BindEvent()托管，我已经说过那是非常规措施，不宜多用。正路就开辟类设计，构造好管理架构，再简单的封装，哪怕仅仅容器中只有一个控件，也设计一个类。

以事物本身的逻辑来设计，不是以操作方便来设计。

以下是引用有容就大在2012-9-24 15:43:21的发言：


哈哈 老大你说的真好 我试验了这么就发现要封装就彻底点 别拖泥带水 不然在调度界面元素时很麻烦啊。

以下是引用taohua300在2012-9-24 15:31:17的发言：

给别人代码不测试容易出臭.............

再来一次
dd = Newobject("ws")
dd.show
Read events
Return  
 
DEFINE CLASS ws AS form
 
 
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"
 
 
    ADD OBJECT container1 AS container WITH ;
        Top = 24, ;
        Left = 84, ;
        Width = 241, ;
        Height = 120, ;
        Name = "Container1"
 
 
    ADD OBJECT command1 AS commandbutton WITH ;
        Top = 192, ;
        Left = 240, ;
        Height = 25, ;
        Width = 60, ;
        Caption = "Command1", ;
        Name = "Command1"
 
 
    PROCEDURE command1.Click
        thisform. = 'ad'
    ENDPROC
   
    PROCEDURE container1.init && 给容器添加对象
        this.AddObject("command1","commandbutton")
        (60,50,60,25)
         = .t.
        bd = 0
        For i = 1 To 5
            tt = 'text' + Transform(i)
            this.AddObject(tt,"textbox")
            this.&tt..move(bd,0,20,25)
            this.&tt..visible = .t.
            bd = bd + 21
        Next
    Endproc  
 
ENDDEFINE
*
*-- EndDefine: ws
**************************************************

以下是引用zklhp在2012-9-24 11:58:53的发言：

我来蹭分楼主肯定会给的

以下是引用bccn201203在2012-9-24 15:45:12的发言：

辈份很重要，不能乱称呼。

以下是引用有容就大在2012-9-24 16:05:01的发言：


你和T版怎么排辈分的，说来听听。。。

以下是引用bccn201203在2012-9-24 16:06:45的发言：

如果按照年龄，应该是你的长辈

以下是引用有容就大在2012-9-24 16:05:51的发言：

顺便问下 那个 DoCreate属性有什么用 我在帮助文档里怎么没找到这个稀罕物？