DBGrid Hilfe columns

[mmw]

Hallo,
evtl. so

Delphi-Quellcode:

var
  ln, 
  i: Integer;

begin

 for i := 0 to dbgrid1.Columns.Count - 1 do
  begin
    ln := DBGrid1.Canvas.TextWidth(dbgrid1.Columns[i].Title.Caption) + 4;
    dbgrid1.Columns[i].Width := ln;
  end;

end;

Gruß