delphi 树的节点清除

Question

怎么清除树的节点啊 TreeView如下图    [01]张三
       [0101]小张
       [0102]小三
   [02]李四
       [0201]小李
       [0202]小四怎么样，我才能点张三这个节点，把小张、小三这2个节点去掉呢？？？

Answer 1

procedure TForm1.TreeView1Click(Sender: TObject);
begin
  if TreeView1.Selected <> nil then
    TreeView1.Selected.DeleteChildren;
end;

Answer 2

  fcTreeView1.SetFocus;
  NowNode := fcTreeView1.Selected;
  NowNode.DeleteChildren;