请问怎么样清除treeview一个项的所有子项

Question

谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
   if Treeview1.Selected<>nil then
   begin
      Treeview1.Selected.DeleteChildren;
      showmessage('删除完成');
   end;
end;

Answer 2

如果是指定项呢？？？？
比如items[0]

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
   if Treeview1.Selected<>nil then
   begin
      Treeview1.Selected.Delete;
      showmessage('删除完成');
   end;
end;呵呵！还是我来关心你吧，这个函数会删除当前选定的项和它的子项