delphi 中TreeView滚动条自动定位到被选中节点问题

Question

delphi 中TreeView滚动条自动定位到被选中节点问题
有的开发程序，有EnsureVisible这个属性，但是delphi中怎么写代码啊。

Answer 1

procedure TForm11.btn3Click(Sender: TObject);
var
  i : Integer;
begin
  //随机选中
  Randomize;
  i := Random(tv1.Items.Count);
  tv1.Items.Item[i].Selected := true;
  //定位顶点记录
  tv1.TopItem := tv1.Selected; 
end;

Answer 2

node.Selected=true 
滚动条自动定位node节点了

Answer 3

你把行选中选项打开.
我在delphi xe中测试过了

Answer 4

解决了，我在form.show中不能显示，用按钮按就可以了，在form.show中Button6.Click;，在按钮中写上面的代码，可以了。
谢谢。