procedure TFM_Exception.AdvStringGrid2etAlignment(Sender: TObject; ARow,
ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
begin
HAlign:=taCenter; //写法正确的.... 按上面的属性 设置下即可
VAlign:=vtaCenter;
end;advstringgrid2.wordwrap:=false; //该属性为自动换行...支持 #13 ,则 垂直居中无效advstringgrid2.MultilineCells:=true; //该属性 支持 #13 自动换行, 但不影响 (非#13) 垂直居中效果
ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
begin
HAlign:=taCenter; //写法正确的.... 按上面的属性 设置下即可
VAlign:=vtaCenter;
end;advstringgrid2.wordwrap:=false; //该属性为自动换行...支持 #13 ,则 垂直居中无效advstringgrid2.MultilineCells:=true; //该属性 支持 #13 自动换行, 但不影响 (非#13) 垂直居中效果
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货