就是將水平滾動條拉到最右也不會看到有空位。我在FormResize事件中用以下代碼： width:=DBGrid1.Width div DBGrid1.Columns.Count; for i :=0 to DBGrid1.Columns.Count-1 do begin DBGrid1.Columns[i].Width:=Width; end; 但水平滾動條拉到最右還是看到有空位。那位大大有更好的方法？

Hi:    將最後一個 Column 的 Width 設為與 DBGrdi 的 Width 相等即可(投機的方法)

 
    DBGrid1.Columns[DBGrid1.Columns.Count - 1].Width := DBGrid1.Width;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

引言: Hi: 將最後一個 Column 的 Width 設為與 DBGrdi 的 Width 相等即可(投機的方法)

 
    DBGrid1.Columns[DBGrid1.Columns.Count - 1].Width := DBGrid1.Width;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 -------------------------------- < face="Verdana, Arial, Helvetica"> 谢谢您再次指导。虽然是投機的方法，不过先用上再说。再次感谢！

Hi CyberMan您好: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37047 將裡面的procedure AdjustColumnWidths(DBGrid: TDBGrid)那一段程式套入即可 Good Luck 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.