Var

i,ColWidth,ColTextWidth:Integer;
Begin
if DBGrid.DataSource.DataSet.Active then
  begin
    DBGrid.DataSource.DataSet.DisableControls;
    for i:= 0 to DBGrid.Columns.Count-1 do
      begin
        ColWidth:=DBGrid.Canvas.TextWidth(DBGrid.Columns[i].Field.DisplayLabel);
        DBGrid.DataSource.DataSet.First;
      while not DBGrid.DataSource.DataSet.Eof do
       begin
      ColTextWidth:=DBGrid.Canvas.TextWidth(DBGrid.Columns[i].Field.DisplayText);
         if (ColTextWidth > ColWidth) then
           begin
             ColWidth := ColTextWidth;
           end;
         DBGrid.DataSource.DataSet.Next;
      end;{while}
      DBGrid.Columns[i].Width:=ColWidth+1;
    end;{for}

i := 2; // cari isim kolon numarası / indexi

DBGrid.Columns[i].Width:=300; // 2 numaralı kolon genişliği 300 pixel e ayarlanır.

(26-01-2025, Saat: 08:08)OZCANK Adlı Kullanıcıdan Alıntı: Merhaba, "DBGrid1" de "Cari İsim" alanının kolon boyutunu ayarlamak istiyorum nasıl bir yol izleyebilirim ? Elinde bu şekilde bir kod olan var mı? 
Delphi7 kullanıyorum.

Bu kod otomatik ayarlıyor ve "Cari İsim" alanı uzun olduğu zaman sağındaki kolonları kaydırıyor ben verdiğim uzunluk da kalmasını istiyorum.

Kullandığım Kod:

Var

i,ColWidth,ColTextWidth:Integer;
Begin
if DBGrid.DataSource.DataSet.Active then
  begin
    DBGrid.DataSource.DataSet.DisableControls;
    for i:= 0 to DBGrid.Columns.Count-1 do
      begin
        ColWidth:=DBGrid.Canvas.TextWidth(DBGrid.Columns[i].Field.DisplayLabel);
        DBGrid.DataSource.DataSet.First;
      while not DBGrid.DataSource.DataSet.Eof do
       begin
      ColTextWidth:=DBGrid.Canvas.TextWidth(DBGrid.Columns[i].Field.DisplayText);
         if (ColTextWidth > ColWidth) then
           begin
             ColWidth := ColTextWidth;
           end;
         DBGrid.DataSource.DataSet.Next;
      end;{while}
      DBGrid.Columns[i].Width:=ColWidth+1;
    end;{for}