如何让dbgrid中的各列自动调整为足够显示内容的最小宽度？

ffprince您好    DBGrid的各Column的Width其實是由DataSet的欄位DisplayWidth帶出來的, 而這個DisplayWidth值是由資料庫的Schema定義欄位大小時給的, 例如整數是4. 如果資料表的欄位數很多, 一般都會超過DBGrid可視範圍.    所以說, DBGrid的Column寬度由資料表定義決定. 但是若您想用程式碼調整 下面片段程式碼您可以參考看看

var
  TotalGridDisplayWidth:Integer;    procedure TForm1.FormCreate(Sender: TObject);
var
  i:Integer;
  x:double;
begin
  TotalGridDisplayWidth:=0;
  for i:=0 to DBGrid1.Columns.Count-1 do
  begin
    TotalGridDisplayWidth:=TotalGridDisplayWidth DBGrid1.Columns.Items[i].Width;
  end;
  for i:=0 to DBGrid1.Columns.Count-1 do
  begin
    x:=DBGrid1.Columns[i].Width / TotalGridDisplayWidth;
    DBGrid1.Columns[i].Width:=Round((DBGrid1.Width-50)*x);
  end;
end;

不好意思 把這麼老的文章挖出來
我想樓主想要問的意思應該是 單一欄位 最佳的最小寬度
不是所有columns加總後的寬度

意思大概就是在EXCEL標題欄與標題欄之間 按兩下
會自動拉出最佳的距離的意思吧!!

就在剛剛 自己解決的這個問題

使用 : Canvas.TextWidth(Tstring):integer

就可以知道 字串 TString所需要使用的 Width 也就是(pixel:畫素)

以上!