delphi中怎样展开和关闭TreeView的所有节点?

其中关闭也就是“收起”或“合拢”。。。

全部展开:Treeview1.FullExpand;

全部收起:Treeview.FullCollapse;