delphi 选中的展开0级 子级不展开

TreeView1.Selected.Expand(False); //选中的展开0级 子级不展开

TreeView1.Selected.Expand(True); //全部展开

来自为知笔记(Wiz)