advStringGrid单元格文字垂直居中

时间:2023-03-09 19:41:57
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;

上述两个步骤,缺一不可,否则不会垂直居中