★★★有没有可以合并单元格的StringGrid,或者怎么去实现这种功能!!!★★★

Question

procedure TForm1.SGFixedCols(curcol,currow:integer);
begin
 for i:=0 to stringgrid1.rowcount-1 do
  begin
    stringgrid1.cells[curcol,i]:=stringgrid1.cells[curcol,i]                    +stringgrid1.cells[curcol+1,i];
  end;
 for i:=currow+1 to stringgrid1.rowcount-1 do
   for j:=curcol+1 to stringgrid1.colcount-1 do
     beginend;

Answer 1

procedure TForm1.SGFixedCols(curcol,currow:integer);
begin
for i:=0 to stringgrid1.rowcount-1 do
  begin
    stringgrid1.cells[curcol,i]:=stringgrid1.cells[curcol,i]           +stringgrid1.cells[curcol+1,i];
  end;
for i:=currow+1 to stringgrid1.rowcount-1 do
  for j:=curcol+1 to stringgrid1.colcount-2 do
    begin
      stringgrid1.cells[j,i]:=stringgrid1.cells[j+1,i]; 
    end;
stringgrid1.colcount:=stringgrid1.colcount-1;
end;   

Answer 2

我可能表达的不清楚,我的意思是只合并fixed的列或行, celsss行数和列数 还是和原来的一样,

Answer 3

举个例子吧:
合并前：
 -----------------------------------------------------
 | 研发部 | 软件开发 | Mis  | 低层 | 网络 | ……
 ---------------------------------------------------
 | 研发部 | 硬件开发 | 单片 | 集成 | 结构 | ……合并后：
 -----------------------------------------------------
 |        | 软件开发 | Mis  | 低层 | 网络 | ……
 - 研发部  --------------------------------------------------
 |        | 硬件开发 | 单片 | 集成 | 结构 | ……

Answer 4

　bigchg(戴着戒指)说,不行