dbgrideh列宽如何根据字段宽度自动设置呀？

Question

如何根据字段宽度自动设置啊？

Answer 1

var
  canvas: TCanvas;
  width: integer;//串占用的宽度
begin
  canvas := TCanvas.Create;
  canvas.Font.Name := ''; //指定dbgrideh所用的字体
  width := canvas.TextWidth(Field.AsString);  canvas.Free;  //下面设定你的dbgrideh列的宽
end;

Answer 2

// 每个列都是自适应宽度，这样应该是可以的！
var
  I :integer;
begin
 for I :=0 to DBGridEh1.Columns.Count -1 do
   DBGridEh1.Columns[I].OptimizeWidth;
end;写在数据查询的后面，然后执行上面的！

Answer 3

var
 I :Integer;
begin
  for i := 0 to dbgrideh.Coloumns.count-1 do
    dbgrideh.Coloumns[I].OptimizeWidth;
end;

Answer 4

双击DBGridEh控件,在弹出的Editing DBGridEh.Columns中添加字段列
DBGridEh1.AutoFitColwidths:=True;