10楼没有看清楚楼主的需求啊
他是想得到两个界面供用户选择,
左半表格是起到一个类似父表的指针的作用,
右半边可以列表, 也可以编辑, 而Grid自带的编辑太丑了,
这才想出这么个招来.呵呵

这个思路应该说非常好, 只是被bug给卡住了.

这种画面是我经常用的，实现不了，说来干嘛。

哪来的被Grid标题遮挡？



[ 本帖最后由 TonyDeng 于 2012-6-1 22:25 编辑 ]

做这种录入界面也不需要把Grid拆分为两部分，Grid的尺寸是可以调整的，像推拉窗口一样，把右边的Container向左挤、收缩Grid就可以了，拆分覆盖干嘛呢。

[ 本帖最后由 TonyDeng 于 2012-6-1 23:32 编辑 ]

能把表单设计器的属性窗的下拉列表展开截图我看看吗?
你的两个命令钮应该是放在一个容器里的,
我想看看你有没有实现容器对命令按钮的包含.

另外, 你试试在表格中加入记录, 点表体中有记录内容的任何部分,
再点回你的按钮看看

你喜欢怎样改怎样试都行，自己来吧：

Form1 = NEWOBJECT("C_Form")
Form1.Show
READ EVENTS
RETURN 

DEFINE CLASS C_Form AS Form
    Caption = "改变Grid标题栏的颜色"
    ShowTips = .T.
   
    ADD OBJECT Grid1 AS Grid WITH Top = 20, Left = 20
    ADD OBJECT Container1 AS Container WITH Top = 10, Left = 200, Width = 100, Height = 100, SpecialEffect = 0, BackColor = RGB(128,128,0)
   
    PROCEDURE Grid1.Init
        WITH This
            .ColumnCount = 5
            .Themes = .F.
            .HeaderHeight = 40
            WITH .Columns(1).Header1
                .BackColor = RGB(0,0, 255)
                .ForeColor = RGB(255,255,255)
            ENDWITH
            WITH .Columns(2)
                .RemoveObject("Header1")
                .AddObject("Header1", "C_Header")
                .Header1.Caption = "超长的标题栏测试"
            ENDWITH
        ENDWITH
    ENDPROC
   
    PROCEDURE Grid1.Show
        This.Visible = .T.
    ENDPROC
   
    PROCEDURE Grid1.Hide
        This.Visible = .F.
    ENDPROC 

    PROCEDURE Container1.Init
        WITH This
            .AddObject("Text1", "TextBox")
            .Text1.Top = 5
            .Text1.Value = "点我显示表格"
            BINDEVENT(.Text1, "GotFocus", ThisForm.Grid1, "Show")
            .AddObject("Text2", "TextBox")
            .Text2.Top = 40
            .Text2.Value = "点我隐藏表格"
            BINDEVENT(.Text2, "GotFocus", ThisForm.Grid1, "Hide")
            .SetAll("Left", 5, "TextBox")
            .SetAll("Height", 25, "TextBox")
            .SetAll("Width", 80, "TextBox")
            .SetAll("Visible", .T., "TextBox")
        ENDWITH
    ENDPROC
   
    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC
   
ENDDEFINE 

DEFINE CLASS C_Header AS Header
    FontName = "微软雅黑"
    FontSize = 10
    BackColor = RGB(128,128,128)
    ForeColor = RGB(255,255,255)
    WordWrap = .T.
    Alignment = 2
   
    PROCEDURE MouseEnter(tnButton, tnShift, tnXCoord, tnYCoord)
        This.ForeColor = RGB(0,255,255)
    ENDPROC
   
    PROCEDURE MouseLeave(tnButton, tnShift, tnXCoord, tnYCoord)
        This.ForeColor = RGB(255,255,255)
    ENDPROC 

ENDDEFINE

[local]1[/local]
大块灰色的是"容器", 橙色的是"形状", 另外还有命令钮/文本框等, 甚至还加上另一个表格
这些通通显示层次在下面那个表格之上,
但都被它的header搞乱了.
这应该就是楼主所遇到的情况吧.

晕了,我贴不了图.

16楼的代码试过了, 我用的表是有数据的, 点两下之后, 表头部分就破坏显示掉了,
可惜我贴不上图,
不然给你看看.

另外, Tony的这个代码不象是表单设计器生成的啊.
你不用可视方式的吗?

他只会用代码，从不用表单设计器生成。