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

[antony521]

动态添加的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 属性运行时只读，所以动态添加 的表格要实现此功能只能用子类化的方式

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