如何在stringgrid中在一行中显示两行标题，或有什么控件代替它？

Question

我想在stringgrid标题中显示如下的格式(即多行标题）：序                          单   价              合价                     
    编号     名   称     人工费 材料费 机械费   人工费.....         
号

Answer 1

// OnDrawCell事件
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with StringGrid1 do
  with Canvas do begin
    FillRect(Rect);
    DrawText(Handle, PChar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]),
             Rect, DT_VCENTER + DT_CENTER + DT_WORDBREAK);
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[1, 0] := '序'#13'号';  // 换行处加上#13
end;

Answer 2

中间还要用线隔开,其中上面的格式就是我要用报打印出来的格式，我想报表头由stringgrid中读取，最好还能修改它。