如何只让TreeView只展开一个结点？

Question

我有两个有子结点的父结点 A、B，因同时展开两个的话会有滚动条的，现比如：
A、B结点只展开一个，即展开A时先合上B再展开A，展开B时先合上B再展开A，该在哪个事件里怎么写？谢谢，
我是在它的Expanding中这样写：
    if TreeView1.Items[0].Focused then
     if  TreeView1.Items[19].Expanded then
        TreeView1.Items[19].Collapse(true);
    if TreeView1.Items[19].Focused then
     if TreeView1.Items[0].Expanded then
        TreeView1.Items[0].Collapse(true);
但没用。

Answer 1

treeview1.selected.expand:=true;
这样行吗，

Answer 2

进行定位,TreeView1.Items[0].expand := True;
没有试，你自己试一下。

Answer 3

to  haoco 和 fatebus 这样还有个问题：在点结点前的加号的时候还是会出现滚动条。