在你的另一贴中我贴的,应该没有什么问题吧? Node := TV.Selected; 这一行改成你需要的代码不就可以了吗? procedure TForm1.Button1Click(Sender: TObject); var i : Integer; Node : TTreeNode; begin Node := TV.Selected; //你要保留的node for i := TV.Items.Count - 1 downto 0 do if not ((TV.Items[i]=node) or (Node.HasAsParent(TV.Items[i]))) then TV.Items.Delete(TV.Items[i]); end;
Node := TV.Selected; 这一行改成你需要的代码不就可以了吗?
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
Node : TTreeNode;
begin
Node := TV.Selected; //你要保留的node
for i := TV.Items.Count - 1 downto 0 do
if not ((TV.Items[i]=node) or (Node.HasAsParent(TV.Items[i]))) then
TV.Items.Delete(TV.Items[i]);
end;
不对!再想想!
谢谢