比如，表单已经通过可视化创建好了，里面已经有很多控件，临时需要增加一个表格，我在表单的INIT事件中加入如下代码：
THISFORM.ADDOBJECT('grid','_grid')
DEFINE CLASS _Grid as grid
  visible=.t.
enddefine
却不能保存，提示错误：方法程序或事件不能含有嵌套的过程或类定义

ThisForm.AddObject("Grid1", "Grid")
ThisForm.Grid1.Visible = .T.

定义表格的属性可以，但是假如我还要在表格的COLUMN1下的TEXT1的click事件中添加一段代码，怎么实现呢

当然可通过在可视化表单里面实现，但是我就是想通过ADDOBJECT这样的方式实现可以吗

兩種方法：
1.事先定義一個合適的繼承自Grid的類MyGrid，再AddObject("Grid1", "MyGrid")
2.用BindEvent()臨時綁定控件事件到當前類事件

[此贴子已经被作者于2016-3-12 14:57编辑过]

非常感谢TonyDeng的帮助，我决定用BINGENENT

注意BindEvent()是vfp9才有的

動態添加對象，原則是什麽時候用就什麽時候創建。你在Init中做這事，其實與設計時靜態定義沒什麽區別，因爲要讓對象動態顯現可以用Visible屬性控制（對象已存在但不顯示出來而已）。動態顯示和動態創建，是不同的思路。

主要问题不在 THISFORM.ADDOBJECT('grid','_grid')
问题在于：
    PROCEDURE init
        this.AddObject("grid", "_Grid")
        DEFINE CLASS _Grid as grid
            visible = .t.
        ENDDEFINE
    ENDPROC
应该将类定义：
        DEFINE CLASS _Grid as grid
            visible = .t.
        ENDDEFINE
放到VCX或PRG，要引用时先载入。

如：

** test.prg
CREATE CURSOR tt (f1 I, f2 I)
of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as Form
    height = 400
    ADD OBJECT grid1 as grid
    
    PROCEDURE init
        this.AddObject("grid", "_Grid")
    ENDPROC
ENDDEFINE

DEFINE CLASS _Grid as grid
    top = 200
    visible = .t.
ENDDEFINE