DBGrid1.Columns[0].Width:= .... / geht das auch automatisch?

[TiGü]

Wäre das nicht einfacher über den Canvas zu lösen?

Delphi-Quellcode:

// Im AfterOpen der Query, Table, ...
procedure TForm1.DatenbankomponentennameAfterOpen(DataSet: TDataSet);
var
  i : Integer;
  LColumn: TColumn;
begin
  for i := 0 to DBGrid1.Columns.Count - 1 do
  begin
    LColumn := DBGrid1.Columns[i];
    LColumn.Width := DBGrid1.Canvas.TextWidth(LColumn.Field.AsString);
  end;
end;