Treeview扩展后右边的Scroll怎么移到顶端？

Question

TreeView1装了很多东西后，用TreeView1.FullExpand;TreeView的Scroll就到底端了，怎么把它移到底端？谢谢了！！

Answer 1

应是：TreeView1装了很多东西后，用TreeView1.FullExpand;TreeView的Scroll就到底端了，怎么把它移到顶端？谢谢了！！

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
  TreeView1.FullExpand;
  TreeView1.Perform(WM_VSCROLL, SB_BOTTOM, 0);
end;

Answer 3

试试这个
if TreeView.Items.count > 0 then
  TreeView.Items[0].MakeVisible;

Answer 4

TreeView1.Perform(WM_VSCROLL, SB_TOP, 0);