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;
上述两个步骤,缺一不可,否则不会垂直居中