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

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

1 个解决方案

#1

本帖最后由 dkfdtf 于 2016-03-13 11:10:44 编辑

SplitBar 属性运行时只读，所以动态添加 的表格要实现此功能只能用子类化的方式

Public oform1

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

Define Class form1 As Form
    。。。
    Procedure cmd_add.Click
        Thisform.AddObject('grid1',' grid1')
        With Thisform.grid1
            。。。
*!*             .SplitBar=.F. && 这里想让它生效
            .Visible=.T.
        Endwith
    Endproc
EndDefine

Define Class grid1 as Grid
        SplitBar=.F.
EndDefine