Delphi Stringgrid单元格居中方法

网上有很多教stringgrid单元格居中的方法，基本都是通过drawcell的方式，太麻烦了！！！

下面重点来了！！！！

stringgrid的options属性中，把goFixedColDefAlign和goFixedRowDefAlign设置为false，然后在窗口的formResize中写入如下代码，就可以让所有单元格居中了，如果需要靠左或靠右，只要把taCenter改为taLeft或taRight就可以了。

procedure Tfrm_Main.FormResize(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to SG_Main.ColCount - 1 do
  begin
    SG_Main.ColAlignments[I] := taCenter;
  end;
end；