TreeView只能同时展开一项，即在展开一项原收缩的项的时候，收缩其他原已经展开的项，怎么做？

Question

TreeView只能同时展开一项，即在展开一项原收缩的项的时候，收缩其他原已经展开的项，怎么做？

Answer 1

???????HideSelection是处理焦点不在的时候隐藏焦点项吧～～//参考如下代码～～
procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode);
var
  vTreeNode: TTreeNode;
begin
  vTreeNode := Node.getNextSibling;
  while Assigned(vTreeNode) do begin
    vTreeNode.Expanded := False;
    vTreeNode := vTreeNode.getNextSibling;
  end;
  vTreeNode := Node.getPrevSibling;
  while Assigned(vTreeNode) do begin
    vTreeNode.Expanded := False;
    vTreeNode := vTreeNode.getPrevSibling;
  end;
end;