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;

Answer 2

也许这会有所帮助。它是 TDBGrid 类帮助程序的一部分，可自动调整最后一列的大小，以便网格没有空白空间。应该很容易根据您的需求进行调整。

您可能会注意到，CalcDrawInfo 方法就是您正在寻找的方法。由于它是受保护的，因此您可以使用类助手或通常的受保护黑客来获取它。

procedure TDbGridHelper.AutoSizeLastColumn;
var
  DrawInfo: TGridDrawInfo;
  ColNo: Integer;
begin
  ColNo := ColCount - 1;
  CalcDrawInfo(DrawInfo);
  if (DrawInfo.Horz.LastFullVisibleCell < ColNo - 1) then Exit;

  if (DrawInfo.Horz.LastFullVisibleCell < ColNo) then
    ColWidths[ColNo] := DrawInfo.Horz.GridBoundary - DrawInfo.Horz.FullVisBoundary
  else
    ColWidths[ColNo] := ColWidths[ColNo] + DrawInfo.Horz.GridExtent - DrawInfo.Horz.FullVisBoundary
end;

Answer 3

我想我已经找到了解决方案（虽然看起来有点奇怪）。为了找到 DBgrid 的列宽和实际宽度之间的差异（这意味着找到最后一列之后留下的空白空间的宽度），我们需要跟踪现在显示在左侧的列（当前列是什么）滚动到的位置）。我们可以使用 OnDrawColumnCell 事件来做到这一点，因为它只会绘制现在滚动的列。然后我们需要计算所有可见列的宽度总和，并从 DBGrid 的宽度中减去该宽度。 PS 抱歉英语不好

Ex 代码：

     For i:=0 to Last do
     if Vis[i] then
     Begin
      Sum:=Sum+DBG.Columns[i].Width;
      Inc(Cnt);
     End;

     if dgColLines in DBG.Options then
     Sum := Sum + Cnt;

  //add indicator column width
    if dgIndicator in DBG.Options then
    Sum := Sum + IndicatorWidth;
    Dif:=DBG.ClientWidth - Sum;

Answer 4

以下是我们过去使用过的函数。它考虑了基于字体的数据宽度，并且还补偿了垂直线（如果它们可见）

function GridTextWidth(fntFont : TFont; const sString : OpenString) :
  integer;
var
  f: TForm;
begin
  try
    f:=TForm.Create(nil);
    f.Font:=fntFont;
    result:=f.canvas.textwidth(sstring);
  finally
    f.Free;
    end;
end;




function CalcGridWidth(dbg : TDBGrid { the grid to meaure }): integer; { the "exact" width }
const cMEASURE_CHAR   = '0';
      iEXTRA_COL_PIX  = 4;
      iINDICATOR_WIDE = 11;
var i, iColumns, iColWidth, iTitleWidth, iCharWidth : integer;
begin
  iColumns := 0;
  result   := GetSystemMetrics(SM_CXVSCROLL);

  iCharWidth := GridTextWidth(dbg.font,cMeasure_char);

  with dbg.dataSource.dataSet do begin
    DisableControls;
    for i := 0 to FieldCount - 1 do with Fields[i] do
      if visible then
      begin
        iColWidth := iCharWidth * DisplayWidth;
        if dgTitles in dbg.Options then begin
          ititlewidth:=GridTextWidth(dbg.titlefont,displaylabel);
          if iColWidth < iTitleWidth then
            iColWidth := iTitleWidth;
        end;
        inc(iColumns, 1);
        inc(result, iColWidth + iEXTRA_COL_PIX);
      end;
      EnableControls;
    end;

  if dgIndicator in dbg.Options then
  begin
    inc(iColumns, 1);
    inc(result, iINDICATOR_WIDE);
  end;
  if dgColLines in dbg.Options then
    inc(result, iColumns)
  else
    inc(result, 1);
end;