如何使 TDBGrid 的列适合网格的宽度？

Question

我有一个带有预定义列的 TDBGrid，但我无法获得正确的宽度。我可以在表单设计器中弄乱列的宽度属性，并使宽度在设计时看起来恰到好处，但在运行时，无论出于何种原因，列往往会明显更宽，最终会出现滚动条在网格的底部。有没有什么方法可以使列的大小正确，而无需反复试验，特别是如果网格只有一两个列？

Answer 1

我在表单中使用这个程序 OnResize 事件

procedure AutoStretchDBGridColumns(Grid: TDBGrid; Columns, MinWidths: Array of integer);
var
  x, i, ww: integer;
begin
  // Stretches TDBGrid columns
  // Columns contains columns to stretch
  // MinWidths contains columns minimum widhts
  // To stretch grids columns 1,2 and 5 automatically and set minimum widths to 80, 150 and 150 call
  // AutoStretchDBGridColumns(DBGrid1, [1,2,5], [80, 150, 150]);
  Assert(Length(Columns) = Length(MinWidths), 'Length(Columns) <> Length(MinWidths)');
  ww := 0;
  for i := 0 to Grid.Columns.Count - 1 do
  begin
    if Grid.Columns[i].Visible then
      ww := ww + Grid.Columns[i].Width + 1; //** +1 for grid line width
  end;
  if dgIndicator in Grid.Options then
    ww := ww + IndicatorWidth;
  x := (Grid.ClientWidth - ww) div Length(Columns);
  for i := 0 to  High(Columns) do
    Grid.Columns[Columns[i]].Width := Max(Grid.Columns[Columns[i]].Width + x, MinWidths[i]);
end;

它有一些缺陷，但效果很好。

Answer 2

我想我知道问题的答案。几年来我也遇到了同样的问题。
当我放入演示数据时，我调整了列宽度（设计时），但我怀疑，作为 Delphi 中的一个错误，如果您输入的宽度与 Delphi 分配给列的默认宽度相同，则宽度不会保存在dfm 文件 - 如果您以文本形式查看 dfm，则可以看到这一点。

我的解决方案是将其设置为宽或窄一像素，以便 Delphi 将被迫存储宽度（或直接编辑 dfm），因此它将在运行时设置。如果您不设置它，Delphi 将在运行时分配一些计算的宽度 - 这不是您想要的，因为它可能会根据数据而改变。简单的解决方案，但我花了很长时间才弄清楚。

Answer 3

您可以这样做，但必须检查可能可以显示的所有记录的所有字段的宽度。

鉴于仍然有大量应用程序很难过滤其记录集，这可能意味着您需要检查无数记录，只是为了摆脱滚动条。

您是否曾经考虑过您可能只想一次显示太多信息？

可能的替代方案是为不适合其列的字段显示提示文本？

我已经使用了这样的替代方案，但需要检查来源；明天我可以给你一些示例代码。

——杰罗恩

Answer 4

JP的回答是一个相当不错的解决方案。您需要根据需要手动拉伸或收缩列以使其适合窗口。有一个 Windows API 调用来获取垂直滚动条宽度。然后您可以查看可见行以查看是否显示垂直滚动条。

另一种技术是计算出每列相对于彼此的宽度。然后，当您调整大小时，它们保持相同的比例。

Answer 5

您可以查看此问题的答案。

也许受保护的 CalcDrawInfo 方法可能会有所帮助。