【结帖】如何得到 datagrid 某行的行高？？**

SH_XL_ZHUFO

如何得到 datagrid 某行的行高？？
因为设置了自动行高，所以每行的行高都不同
要求不出现纵向滚动条
所以想编历行高，计算出 datagrid 的应该的高度，进行调整

ver 2819

SH_XL_ZHUFO

找到了吗，急啊

SH_XL_ZHUFO

还没找到方法吗？前辈！

SH_XL_ZHUFO

又过了一天，等待中。。。。。。。。。。。

yancm

抱歉，自动行高时无法获得每行高度。

yancm

您选中datagrid 的OptionsDB-edgoLoadAllRecords属性，看是否可以达到您的目的。

jiahaiminghr

可以设置OptionsDB-edgoLoadAllRecords：＝true
用以下代码获取各行高度：
  TExtDataGrid = class(TDataGrid)
  public
    function GetRowHeightByNode(ANode: TTreeListNode): Integer;
  end;

function TExtDataGrid.GetRowHeightByNode(ANode: TTreeListNode): Integer;
begin
  result := GetRowHeight(ANode, 0, false);
end;

procedure TMainForm.Button4Click(Sender: TObject);
var
  lheight: String;
  lNode: TTreeListNode;
  lexpdbg: TExtDataGrid;
  i: integer;
begin
  memo1.Lines.Clear;
  lexpdbg := TExtDataGrid(DataGrid1);

  for i:= 0 to DataGrid1.DataSource.DataSet.RecordCount-1 do
    begin
      lNode := DataGrid1.Items;
      lheight := SysUtils.IntToStr(lexpdbg.GetRowHeightByNode(lNode));
      memo1.lines.add(lNode.Strings[0] + ' : ' + lheight);
    end;
end;

SH_XL_ZHUFO

谢谢，等我试验以下再回复

SH_XL_ZHUFO

先结吧，谢谢