DBGrid旨在使用户能够在表格网格中查看和编辑数据，它提供了多种自定义表示“其”数据的方式的方法。有了这么多的灵活性，Delphi开发人员总能找到新的方法使它更强大。

TDBGrid缺少的一个功能是，没有选项自动调整特定列的宽度以完全适应网格的客户端宽度。在运行时调整DBGrid组件的大小时，列宽不会调整大小。

如果DBGrid的宽度大于所有列的总宽度，则在最后一列之后会出现一个空白区域。另一方面，如果所有列的总宽度大于DBGrid的宽度，则会出现一个水平滚动条。

自动调整dbgrid列宽

在运行时调整网格大小时，您可以遵循一个方便的过程来修复选择性DBGrid列的宽度。

需要注意的是，通常DBGrid中只有两到三列需要自动调整大小；所有其他列显示一些“静态宽度”数据。例如，始终可以为显示数据字段值的列指定固定宽度，这些数据字段由TDateTimeField、TFloatField、TIntegerField和类似字段表示。

此外，您可能会（在设计时）使用字段编辑器创建持久字段组件，以指定数据集中的字段、它们的属性和顺序。对于TField子体对象，可以使用Tag属性指示显示该字段值的特定列必须自动调整大小。

这就是想法：如果希望列自动适应可用空间，请为TField子体的标记属性指定一个整数值，该属性指示对应列的最小宽度。

fixdbgridcolumnswidth过程

开始之前，在包含DBGrid的表单对象的OnCreate事件中，通过为相应TField对象的Tag属性指定非零值，指定需要自动调整大小的列。

procedure TForm1.FormCreate(Sender: TObject);begin//setup autoresizable columns by asigning //Minimm Width in the Tag property. //using fixed value: 40 px Table1.FieldByName('FirstName').Tag := 40; //using variable value: width of the //default Column title text Table1.FieldByName('LastName').Tag := 4 + Canvas.TextWidth( Table1.FieldByName('LastName').DisplayName);end;

在上面的代码中，Table1是一个链接到DataSource组件的TTable组件，DataSource组件与DBGrid链接。Table1.Table属性指向DBDemos Employee表。

我们已经将显示FirstName和LastName字段值的列标记为可自动调整大小。下一步是在表单的OnResize事件处理程序中调用FixDBGridColumnsWidth：

procedure TForm1.FormResize(Sender: TObject);begin FixDBGridColumnsWidth(DBGrid1);end;

注意：如果DBGrid的Align属性包含以下值之一，则所有这些都是有意义的：alTop、alBottom、alClient或alCustom。

最后，以下是FixDBGridColumnsWidth过程的代码：

procedure FixDBGridColumnsWidth(const DBGrid: TDBGrid);var i : integer; TotWidth : integer; VarWidth : integer; ResizableColumnCount : integer; AColumn : TColumn;begin//total width of all columns before resize TotWidth := 0; //how to divide any extra space in the grid VarWidth := 0; //how many columns need to be auto-resized ResizableColumnCount := 0; for i := 0 to -1 + DBGrid.Columns.Count dobegin TotWidth := TotWidth + DBGrid.Columns[i].Width; if DBGrid.Columns[i].Field.Tag 0 then Inc(ResizableColumnCount); end; //add 1px for the column separator lineif dgColLines in DBGrid.Options then TotWidth := TotWidth + DBGrid.Columns.Count; //add indicator column widthif dgIndicator in DBGrid.Options then TotWidth := TotWidth + IndicatorWidth; //width vale "left" VarWidth := DBGrid.ClientWidth - TotWidth; //Equally distribute VarWidth //to all auto-resizable columnsif ResizableColumnCount > 0 then VarWidth := varWidth div ResizableColumnCount; for i := 0 to -1 + DBGrid.Columns.Count dobegin AColumn := DBGrid.Columns[i]; if AColumn.Field.Tag 0 thenbegin AColumn.Width := AColumn.Width + VarWidth; if AColumn.Width then AColumn.Width := AColumn.Field.Tag; end; end;end; (*FixDBGridColumnsWidth*)