Question

DELPHI网格组件列宽快速调整

网格组件也就是DBGRID之类的组件,调整列宽往往比较麻烦,特别是字段多时。这时介绍一个简单的办法，供初学者参考。
1、先在你的界面上放一个memo组件和一个按钮
2、在按钮的单击事件写如下代码
procedure TForm1.Button35Click(Sender: TObject);
var
i:word;
begin
memo1.Clear;
memo1.Visible:=true;
for i:=0 to DBGridEh4.Columns.Count-1 do
begin
memo1.Lines.Add('DBGridEh4.Columns['+intTostr(i)+'].Width：'+inttostr(DBGridEh4.Columns[i].Width))
end;
end;
3、运行程序，使DBGRID组件中显示数据，然后用鼠标调整好你的DBGRID组件的列宽至最佳程度，单击那个按钮，memo组件就会显示DBGRID的各个列宽。
4、用代码设置DBGRID的列宽：如
DBGridEh4.Columns[0].Width:=41;
DBGridEh4.Columns[1].Width:=129;
DBGridEh4.Columns[2].Width:=91;
DBGridEh4.Columns[3].Width:=23;
DBGridEh4.Columns[4].Width:=54;
DBGridEh4.Columns[5].Width:=22;
DBGridEh4.Columns[6].Width:=39;
DBGridEh4.Columns[7].Width:=54;
DBGridEh4.Columns[8].Width:=200;
对第一个评论者给予10分的奖励（不管是坏的或好的评论）。

Answer 1

不错。

Answer 2

这样写还是不错的，真的支持！~