advStringGrid单元格文字垂直居中

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;