delphi - Delphi中如何找到带有滚动条的网格组件的实际宽度

Question

我有一个网格组件(DBGrid)，上面有很多列。由于列数较多，创建了滚动条，因此网格的某些部分仍然隐藏。我需要找出DBGrid的真实宽度是多少，包括由于滚动条而未显示的部分。但 Width 属性仅给出组件本身的宽度。有人有什么想法吗？

Answer 1

TDBGrid 有一个Columns 属性。每列都有自己的 Width 属性。因此，您可以循环遍历所有列并总结它们的宽度。

像这样:

function TotalColumnsWidth(var AGrid: TDBGrid);
var
  i: Integer;
begin
  Result := 0;
  for i := to AGrid.Columns.Count - 1 do
    Result := Result + AGrid.Columns[i].Width;
end;