关于treeview的删除节点问题，高分求解

Question

treeview1.Items.Delete(treeview1.selected);

Answer 1

to enlightenment(阿明--进入准冬眠状态的超人)
能不能给我一个两层的例子linyin(林荫) 
我也这样做过，多选删除的时候总是出错。能不能详细点

Answer 2

if TreeView1.SelectionCount =0 then exit;
 if TreeView1.Selected.HasChildren then
 begin
    showmessage('不能删除有子目录的目录，请先删除子目录！');
    exit;
 end;
 if MessageDlg('你真的要删除所选择的目录吗？',mtConfirmation,mbOKCancel,0 )=mrok then
begin
TreeView1.Selected.Delete ;
end;

Answer 3

to feelingluck888(啊华)
问题是有子节点的父节点，也要可以删除

Answer 4

以下是展开节点的代码：procedure ExpandCertainNode(ANode:TTreeNode);
var
  MyTempNode:TTreeNode;
begin
  //若无选中节点或节点无子节点，则退出
  if (ANode=nil)or(not ANode.HasChildren) then Exit;
  ANode.Expanded:=True; //此处将激发OnExpanding事件
  MyTempNode:=ANode.getFirstChild;
  if Assigned(MyTempNode) then Repeat
  begin
    ExpandCertainNode(MyTempNode);
    if MyTempNode<>ANode.GetLastChild then
      MyTempNode:=ANode.GetNextChild(MyTempNode) else Break;
  end
  until MyTempNode=nil;
end;

Answer 5

用selected怎么能实现多选？
是用StateIndex存储多选的状态罢？

Answer 6

to  enlightenment(阿明--进入准冬眠状态的超人) 
看不懂，小弟刚学delphi，能不能写详细一点，还有这个展开节点的代码有什么用途呀,TKS

Answer 7

to  enlightenment(阿明--进入准冬眠状态的超人) 
看不懂，小弟刚学delphi，能不能写详细一点，还有这个展开节点的代码有什么用途呀,TKS

Answer 8

遍历selected选出level最大的先删，直到level最小的