Delphi AdvStringGrid合并单元格垂直居中
设置AdvStringGrid的WordWrap属性为False
然后添加AdvStringGrid的过程
GetAlignment(Sender: TObject; ARow, ACol: Integer;
var HAlign: TAlignment; var VAlign: TVAlignment);
begin
if acol=0 then
begin
HAlign:= taCenter;
VAlign:=vtaCenter;
end;
end;