如何合并stringgrid的单元格,在合并格子里输入文字能居中
在Delphi中,如何合并stringgrid的单元格,在合并格子里输入文字能居中。不是效果上的,而是可以打印出来的。最好给出相关的代码,万分感谢!
[解决办法]
StringGrid不能真正的合并单元格
只能自己画
例子:
合并第三行第二、三两格
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if(ARow = 2) and (ACol = 2) then
begin
Rect.Left := Rect.Left -2;
end;
if(ARow = 2) and (ACol = 1) then
begin
Rect.Right := Rect.Right + 2;
end;
StringGrid1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]) ;
end;
[解决办法]
StringGrid不是Excel,你要的功能要找第3方控件
[解决办法]
如果你想做这个,不要用StringGrid,不如用DrawGrid,可能更灵活一些
[解决办法]
哈哈,有现成的东西 xlgrid 并且有全套代码