AdvStringGrid 单元格合并之后数据为什么只是横向居中呢？

Question

procedure TFM_Exception.AdvStringGrid2etAlignment(Sender: TObject; ARow,
  ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
begin
      HAlign:=taCenter;
      VAlign:=vtaCenter;
end;
 AdvStringGrid2.MergeCells(2,3,2,2);
AdvStringGrid2.cells[2,3]:='10';
为什么这个10只是横向居中呢？

Answer 1

AdvStringGrid2.MergeCells(2,3,2,2);
AdvStringGrid2.cells[2,3]:='10';
AdvStringGrid2.HAlign:=taCenter;
AdvStringGrid2.VAlign:=vtaCenter;这么 试一下

Answer 2

AdvStringGrid2.HAlign:=taCenter;
AdvStringGrid2.VAlign:=vtaCenter;

Answer 3

这样写 提示HAlign和VAlign 未定义。

Answer 4

advstringgrid2.wordwrap:=false; //该属性为自动换行...支持 #13 ,则 垂直居中无效advstringgrid2.MultilineCells:=true; //该属性 支持 #13 自动换行, 但不影响 (非#13) 垂直居中效果 

Answer 5

procedure TFM_Exception.AdvStringGrid2etAlignment(Sender: TObject; ARow,
  ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
begin
      HAlign:=taCenter;        //写法正确的.... 按上面的属性 设置下即可
      VAlign:=vtaCenter;
end;