1、必须设置advStringGrid属性WordWrap = false，
2、在OnGetAlignment事件中，添加以下代码
procedure Tfrm_book_input.StringGrid1GetAlignment(Sender: TObject; ARow,
ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
begin
//设置文字垂直居中必须设置属性：StringGrid1.WordWrap = false，否则不居中
HAlign := taCenter;
VAlign := vtaCenter;
end;
上述两个步骤，缺一不可，否则不会垂直居中