动态添加的Grid 表格,怎么设置SplitBar=.F.

Public oform1

oform1=Newobject("form1")
oform1.Show
Return

Define Class form1 As Form
    Top = 0
    Left = 0
    Height = 300
    Width = 500
    Caption = "动态添加GRID"
    Name = "Form1"
    AutoCenter = .T.

    Add Object cmd_add As CommandButton With ;
        Top = 13, ;
        Left = 40, ;
        Height = 25, ;
        Width = 60, ;
        Caption = "增加GRID", ;
        Name = "CMD_ADD"

    Procedure cmd_add.Click
        Thisform.AddObject('grid1','grid')
        With Thisform.grid1
            .Top=50
            .Left=10
            .Height=Thisform.Height-80
            .Width=Thisform.Width-20
            .DeleteMark=.F.
            .SplitBar=.F. && 这里想让它生效
            .Visible=.T.
        Endwith
    Endproc
Enddefine

SplitBar运行时只读，既然是动态创建GRID，最好是自己封装一个GRID类。
如：
DEFINE CLASS myGrid as Grid
    DeleteMark=.F.
    SplitBar=.F.
    Visible=.T.
    *........
ENDDEFINE

创建GRID对象时：
    Procedure cmd_add.Click
        Thisform.AddObject('grid1','myGrid')
        With Thisform.grid1
            .Top=50
            .Left=10
            .Height=Thisform.Height-80
            .Width=Thisform.Width-20
        Endwith
    Endproc

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

如果不用自定义类还有其它的方法吗?

1、SplitBar运行时只读，这决定了只能在创建GRID对象时就要定义好，不能在创建GRID后再改变它，这要分清“创建时”和“创建后”两种不同情况。
2、直接引用GRID与引用自定义的myGrid有什么不同？个人觉得编程要喜欢myGrid多点。

多谢吹版这样要多出一个过程文件.

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

多出一个过程文件也许是好事，你会变得更有主见。