如何将特定 TreeView 节点的位置居中？

Question

当我用 TTreeView 打开表单时，我用一些数据填充它并选择一些节点。但是我需要使选定的节点在控件的中心可见（当然，如果可能的话）。我找不到如何使用标准 TTreeView 组件来做到这一点。 有什么想法吗？

Answer 1

我能找到滚动 TreeView 的唯一方法是向其发送值为 SB_LINEDOWN/SB_LINEUP 的 WM_VSCROLL。由于某种原因，控件似乎没有响应SB_THUMBPOSITION 的滚动值，例如富编辑。出于这个原因，下面的尝试通过向控件发送一堆行滚动消息来使节点或多或少居中。自己试试看是否适合您的需求。

var
  DR, CR: TRect;
  ScrollPx, ScrollLines, i: Integer;
begin
  if Assigned(TreeView1.Selected) then begin

    // calculate how many *pixels* should we scroll
    DR := TreeView1.Selected.DisplayRect(False);
    CR := TreeView1.ClientRect;
    ScrollPx := - Round((CR.Bottom / 2) - DR.Top - ((DR.Bottom - DR.Top) / 2));

    // how many lines does it correspond to
    ScrollLines := ScrollPx div TreeView_GetItemHeight(TreeView1.Handle);

    // scroll that many lines
    if ScrollLines > 0 then
      for i := 1 to ScrollLines do
        TreeView1.Perform(WM_VSCROLL, MakeWParam(SB_LINEDOWN, 0), 0)
    else if ScrollLines < 0 then
      for i := ScrollLines to -1 do
        TreeView1.Perform(WM_VSCROLL, MakeWParam(SB_LINEUP, 0), 0);
  end;