在事件
procedure TForm1.advStringGrid1GetAlignment(Sender: TObject; ARow, ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);begin HAlign := taCenter; VAlign := vtaCenter;end;