如何让DBgrid的列宽度自动适应字段的实际字符宽度，不是字段的宽度

Question

如果你用的是永久性字段，可以将displaywidth改小一点；
如果直接再dbgrid中设计，可以在窗体上将dbgrid的列宽度拉小一点。

Answer 1

网格重画的时候保留字段显示的大小
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
///////Begin 保留
  if XXX[Column.Field.Index] < Canvas.TextWidth(Column.Field.DisplayText) then
    XXX[Column.Field.Index] := Canvas.TextWidth(Column.Field.DisplayText);
///////End 保留
end;

Answer 2

对了，伴水，XXX[Column.Field.Index]是指的谁?是Dbgrid吗？

Answer 3

伴水兄： XXX[Column.Field.Index] 是什么?

Answer 4

XXX: array of Integer;SetLength(Table1.FieldList.Count);