动态添加的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

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

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

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