- procedure Tfrmmain.AdvStringGrid1GetAlignment(Sender: TObject; ARow,
- ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
- begin
- if ARow=0 then
- begin
- HAlign := taCenter;
- VAlign := vtaCenter;
- end;
AdvstringGrid好像没有直接提供设置列标题对齐的方式,但可以在事件中来设置对齐,用到的事件是GetAlignment事件,只需要在Arow参数为0时,把HAlign设置为taCenter、VAlign设置为Vtacenter就可以实现水平垂直剧中对齐。