关于DBGrid的问题，如何使DBGrid每个字段的宽度随着该字段所显示的字符长短自动变化

[qxfriend]

为了能够打印方便，我想使DBGrid的每一列的宽度最小，如何做？

[sandrafei]

DBGridEh->AutoColfitWidths=true;即可

[heguxun]

同意 sandrafei(飘) ,用第三方的DBGridEh控件很好用的.

[aiirii]

http://borland.mblogger.cn/aiirii/posts/1870.aspx

http://borland.mblogger.cn/aiirii/posts/4084.aspx

[失落的羊]

//自动调整Grid得宽度
void AutoAdjustWidth(TDBGrid * DBGrid1)
{
TDataSet *pDS = DBGrid1->DataSource->DataSet;
AnsiString s;

int Max[10];
int i,j, bCount,bLength;

bCount = DBGrid1->FieldCount;
//bRow = pDS->RecordCount;
for( i = 0; i < DBGrid1->FieldCount; i++)
{
Max[i] = 0;
while(!pDS->Eof)
{
s = pDS->Fields->FieldByName(DBGrid1->Columns->Items[i]->FieldName )->AsString;
if(s.Length() > Max[i])
Max[i] = s.Length();
pDS->Next();
}

}
for(i = 0; i < bCount; i++)
{
if(Max[i])
bLength = Max[i] * 20;
else
bLength = 80;
DBGrid1->Columns->Items[i]->Width = bLength;

}

}

修改一下这个函数就可以了。