如何在dbgrid中实现多行表头?

[fangf]

程序中dbgrid需要两行表头，第一行需要有列合并，第二行任意。

[shangshang]

dbgrid你是不用再想了，没门的。
要么你找个祖先类，自己做一个，
要么到网上找个DBGRIDeh之类的控件。到处都是！

[王集鹄]

嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻
嘻嘻嘻看上去很好玩嘻嘻嘻嘻
嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻

[王集鹄]

object DBGrid1: TDBGrid
Left = 88
Top = 120
Width = 266
Height = 120
BorderStyle = bsNone
Options = [dgEditing, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
Width = 65
Visible = True
end
item
Expanded = False
Width = 59
Visible = True
end
item
Expanded = False
Visible = True
end
item
Expanded = False
Visible = True
end>
end
object Panel1: TPanel
Left = 101
Top = 101
Width = 65
Height = 19
BevelWidth = 2
TabOrder = 1
end
object Panel2: TPanel
Left = 166
Top = 101
Width = 60
Height = 19
BevelWidth = 2
TabOrder = 2
end
object Panel3: TPanel
Left = 101
Top = 82
Width = 125
Height = 19
BevelWidth = 2
TabOrder = 3
end
object Panel4: TPanel
Left = 226
Top = 82
Width = 128
Height = 19
BevelWidth = 2
TabOrder = 4
end
object Panel5: TPanel
Left = 291
Top = 101
Width = 63
Height = 19
BevelWidth = 2
TabOrder = 5
end
object Panel6: TPanel
Left = 226
Top = 101
Width = 65
Height = 19
BevelWidth = 2
TabOrder = 6
end
object Bevel1: TBevel
Left = 86
Top = 80
Width = 270
Height = 161
end
object Panel7: TPanel
Left = 88
Top = 82
Width = 12
Height = 36
BevelWidth = 2
TabOrder = 7
end