在表格里怎么分组显示？？？？

Question

--------------------------------
|部门        |姓名  |性别 |年龄|
--------------------------------
|            |张三  |男   |25  |
|            |------------------
|            |李四  |女   |26  |
|人事部      |------------------
|            |王五  |男   |27  |
|            |------------------
|            |..... |.... |..  |
--------------------------------给个例子，如用第三方控件，请发该控件到[email protected] 万分感激，谢谢

Answer 1

sg是TStringGridprocedure TForm2.Button6Click(Sender: TObject);
begin
  sg.ColCount := 4;
  sg.FixedCols := 0;
  sg.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goRangeSelect,goRowSelect];
  sg.Rows[0].Add('部门');
  sg.Rows[0].Add('姓名');
  sg.Rows[0].Add('性别');
  sg.Rows[0].Add('年龄');
  sg.Rows[1].Add('人事部');
  sg.Rows[1].Add('')  ;
  sg.Rows[1].Add('')    ;
  sg.Rows[1].Add('')   ;
  sg.Rows[2].Add('');
  sg.Rows[2].Add('王五')   ;
  sg.Rows[2].Add('男')  ;
  sg.Rows[2].Add('27')  ;    
  sg.Rows[3].Add('');
  sg.Rows[3].Add('李四')   ;
  sg.Rows[3].Add('女')  ;
  sg.Rows[3].Add('26')  ;
end;

Answer 2

PB里倒是可以，自己找一下吧，delphifans