怎么调整tbgrid中调整单元格大小

[sungoco100]

在grid中显示了一张表，但是，它每列的宽度太宽，怎么调整？

[lvjack]

随便写的一个
void TfmMain::fit_width()
{
if(ADOQuery1->Active==true)
{
int i=ADOQuery1->RecordCount;
if(i>10)
i=i/10;
int max_width=0;
DBGrid1->Canvas->Font=DBGrid1->Font;
for(int k=0;k<ADOQuery1->FieldCount;k++)
{
for(int j=0;j<i;j=j+i)
{
max_width=max(max_width,DBGrid1->Canvas->TextWidth(DBGrid1->Fields[k]->AsString));

}
if(max_width>0)
{
max_width=max_width+3 ;
}
else
{
max_width=6;
}
DBGrid1->Columns->Items[k]->Width=max_width;
max_width=0;
}
}
}
//---------------------------------------------------------------------------

[lvjack]

效果不理想，给你参考吧

[sungoco100]

谢谢`~

[daydayup234]

试

void __fastcall Tmain_::FormShow(TObject *Sender)
{
int I;
TComponent *Temp;
for(I=ComponentCount-1;I>=0;I--)
{
Temp=Components[I];
if(dynamic_cast<TDBGrid *>(Temp)!=NULL)
{
TDBGrid* dgrid=(TDBGrid *)(Temp);
TIBQuery *dset=(TIBQuery *)dgrid->DataSource->DataSet;
int count,fontSize,k;
count=dgrid->Columns->Count;
fontSize=dgrid->Font->Size;
k=count;
while(--k>0)
dset->Fields->Fields[k]->DisplayWidth=(dgrid->ClientWidth)/(count+1)/fontSize;
//因为取整的缘故，让 “列”数多1个
}
}
}