使TStringGrid自适应宽度

procedure AutoFitable(AGrids: TStringGrid);

//传入TStringGrid对像即可, 2004/10/28,CoolSlob

var

I, J: Integer;

MaxLenRow: Integer;

CurRowLen: Integer;

begin

inherited;

for J := 0 to AGrids.ColCount - 1 do

begin

MaxLenRow := 0;

for I := 1 to AGrids.RowCount - 1 do

begin

CurRowLen := AGrids.Canvas.TextWidth(Trim(AGrids.Cells[J, I]));

//自适应宽度时，当值的最大宽度小于标题宽时，以标题宽为准。

if AGrids.Canvas.TextWidth(Trim(AGrids.Cells[J, 0])) > CurRowLen then

CurRowLen := AGrids.Canvas.TextWidth(Trim(AGrids.Cells[J, 0]));

if CurRowLen > MaxLenRow then

begin

MaxLenRow := CurRowLen + 5;

AGrids.ColWidths[J] := MaxLenRow;

end;

end;

end;

end;