如何以编程方式滚动 TTreeView？

Question

A.创建一个 Delphi VCL Forms 应用程序。

B.在表单上放一个TTreeView，命名为tvTest并用item填充它并设置Treeview的大小，这样滚动条在TreeView上是可见的，例如：

C.在表单上放置一个按钮，并在其点击处理程序中编写以下代码：

  procedure TForm1.btnScrollClick(Sender: TObject);
  begin
    tvTest.ScrollBy(tvTest.Width, 0);
  end;

D.现在运行程序并单击按钮。假设水平滚动条应该从左到右滚动。但什么也没有发生。为什么？

那么我怎样才能让滚动条（当然还有滚动条的内容）从左到右、从右到左、向下或向上滚动？

Delphi 10.1 柏林更新 2
Windows 7 x64 SP1

编辑：当我使用此代码时（类似于 Sami 的建议）：

tvTest.ScrollBy(-3, -3);

...我得到了这件现代艺术作品：

Answer 1

要滚动 TreeView，请发送（或 Perform）WM_VSCROLL 和/或 WM_HSCROLL 消息。

tvTest.Perform(WM_HSCROLL, MakeWParam(SB_LINERIGHT, 0), 0);

或

tvTest.Perform(WM_VSCROLL, MakeWParam(SB_LINEDOWN, 0), 0);

参数见消息对应文档

ScrollBy 是 VCL 对ScrollWindow API 的封装，它转换控件的内容。这是绘制滚动控件客户端的一部分的快捷方式，应另外绘制显示（空）部分。它通常由控件的内部实现使用。不是你要找的。​​p>