【结帖】datagrid滚动后最顶端一行的index如何取到**

zfang

楼主可以尝试一下
y := VisibleRowCount * RowHeight;
x := sum(Column.Width);

amnet

这得出的是所有行的行高吧，而不是当前行相对datagrid控件顶端，也就是可视范围内第一行的高度

amnet

如图

zfang

请楼主等待一下，我试试看。

amnet

有结果了么

zfang

不好意思，还没有

zfang

楼主，我大概试了试
这个可以得到可见行的节点信息（第一列）
procedure TMainForm.Button1Click(Sender: TObject);
var
  lNode: TTreeListNode;
begin
  lNode := DataGrid.TopVisibleNode;
  jsDialogs.ShowMsg(lNode.Strings[0], 'lNode.Strings[0]');
  lNode := lNode.GetNextNode;
  jsDialogs.ShowMsg(lNode.Strings[0], 'lNode.Strings[0]');
end;

这个就可以让panel跟随某一行走。
procedure TMainForm.Button2Click(Sender: TObject);
var
  t0, h0, rh, lh: integer;
begin
  t0 := DataGrid.Top;
  h0 := DataGrid.HeaderRowHeight; //DataGrid.HeaderPanelHeight; //HeaderHeight; //
  rh := DataGrid.RowHeight;
  lh := 1;
  Panel1.Height := rh;
  Panel1.Top := t0 + h0+lh;
end;

zfang

更具体的请楼主再试试看，有问题再沟通。

amnet

多谢，我先试试看

amnet

datagrid里的一列显示的是数据库中的图片，这列的值能否通过TTreeListNode对象取道后用image控件显示，而不是通过dataset去取，因为如果通过dataset取就要用到locate方法，这样会触发它的afterscoll事件，而这部分逻辑恰好是通过afterscroll事件触发的，所以就会形成死循环。如果可以通过遍历TTreeListNode对象取图片流来显示就能解决这个问题，谢谢