Don't waist time, it is impossibile.
but "TAdvStringGrid" may be useful for you.

解决方案 »

  1.   

    Why it is impossibile???
    Use OwnerDraw.
      

  2.   

    To: debussy(debussy)
      yes....you are correct.
      

  3.   

    我给你自己化的例子:
    Text :=Cells[ACol, ARow];  if ARow < 2 then
      begin
        Canvas.Brush.Color:=clBtnFace;
        if (ARow=0) and (ACol in[0,1,2,3]) then
        begin
        Canvas.Font.Color := clBlack;
        Canvas.TextOut(Rect.Left+(Rect.Right-Rect.Left-Canvas.TextWidth(Text))div 2, Rect.Top+1+RowHeights[ARow] div 2 ,Text);
        end;
        if (ARow=1) and (ACol in[0,1,2,3]) then
        begin
        Canvas.Font.Color := clBlack;
        Canvas.TextOut(Rect.Left+(Rect.Right-Rect.Left-Canvas.TextWidth(Text)) div 2,Rect.Top+1-RowHeights[ARow]div 2 ,Text);
    以上代码把1,2行的1,2,3,4,列内容合在一起要求合一起的两个单元格的内容相同!