delphi xe stringgrid 文字居中

要将StringGrid中的文字居中，可以使用以下代码：

// 将StringGrid中的文字居中对齐
for i := 0 to StringGrid1.ColCount - 1 do
begin
  for j := 0 to StringGrid1.RowCount - 1 do
  begin
    StringGrid1.Cells[i, j] := StringGrid1.Cells[i, j];
    StringGrid1.Canvas.TextRect(StringGrid1.CellRect(i, j),
      StringGrid1.CellRect(i, j).Left + (StringGrid1.CellRect(i, j).Right - StringGrid1.CellRect(i, j).Left - StringGrid1.Canvas.TextWidth(StringGrid1.Cells[i, j])) div 2,
      StringGrid1.CellRect(i, j).Top + (StringGrid1.CellRect(i, j).Bottom - StringGrid1.CellRect(i, j).Top - StringGrid1.Canvas.TextHeight(StringGrid1.Cells[i, j])) div 2,
      StringGrid1.Cells[i, j]);
  end;
end;

上面的代码会遍历整个StringGrid并将单元格中的文本居中对齐。