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

Question

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

Answer 1

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