使TStringGrid自适应宽度 选择自 CoolSlob 的 Blog

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;