Fórum Fazer as colunas de um DBGrid se ajustarem ao seu conteúdo #327585

var
  Idx: Integer;
begin
  for Idx := 0 to DBGrid1.Columns.Count - 1  do
    DBGrid1.Columns[Idx].Width := DBGrid1.Canvas.TextWidth(DBGrid1.Columns[Idx].Title.Caption);

  DBGrid1.DataSource.DataSet.DisableControls;
  try
    DBGrid1.DataSource.DataSet.First;
    while (not DBGrid1.DataSource.DataSet.Eof) do
    begin
      for Idx := 0 to DBGrid1.Columns.Count - 1  do
      begin
        if (DBGrid1.Canvas.TextWidth(DBGrid1.Columns[Idx].Field.Text) > DBGrid1.Columns[Idx].Width) then
          DBGrid1.Columns[Idx].Width := DBGrid1.Canvas.TextWidth(DBGrid1.Columns[Idx].Field.Text);
      end;
      DBGrid1.DataSource.DataSet.Next;
    end;
  finally
    DBGrid1.DataSource.DataSet.First;
    DBGrid1.DataSource.DataSet.EnableControls;
  end;