delphi 选中的展开0级 子级不展开 TreeView1.Selected.Expand(False); //选中的展开0级 子级不展开 TreeView1.Selected.Expand(True); //全部展开来自为知笔记(Wiz)