1、在打开数据集或执行过查询后动态设置列的宽度,代码如下:
var
I:Integer;
For I := 0 to Dbgrid.Columns.count-1 do
begin
Dbgrid.Columns[I].width := 需要设置的宽度;
Dbgrid.Columns[I].Title.Alignment := taCenter; // 列头居中
end;
2、以最优化的方法显示列宽,不会浪费一点空间,代码如下:
var
I:Integer;
For I := 0 to Dbgrid.Columns.count-1 do
begin
Dbgrid.Columns[I].OptimizeWidth;
end;