请问什么属性可以使StringGrid的一列的内容按居中方式排齐？

[nethole]

请问什么属性可以使StringGrid的一列的内容按居中方式排齐？

[u2m]

在StringGrid的OnDrawCell 里处理，下面的代码不但水平居中，还垂直居中
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
s:string;
r:TRect;
begin
with StringGrid1 do
begin
Canvas.FillRect(Rect);
s:=Cells[ACol,ARow];
r:=Rect;
DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER);
end;
end;
注意StringGrid的DefaultDrawing属性为True,否则你得自己决定Canvas 的字体颜色，大小等信息，比较麻烦

[tanqth]

学习

[cdtsky]

有没有简单的方法　使　cells的大小　随内容　改变

[tpmao]

同意1 楼的程序！！

[ChinaOk]

delph自带的stringgrid就没有这个设置了。
所以只好用一楼的方法了。
其实挺简单的。