删除TreeView节点以及其子节点

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

//1.删除TreeView节点以及其子节点
procedure TForm2.Button1Click(Sender: TObject);
var TreeNode:TTreeNode;
begin
  if TreeView1.Selected <> Nil then
  Begin
    TreeNode := TreeView1.Selected.getFirstChild;
    while TreeNode <> nil do
    begin
      TreeNode.Delete;
      TreeNode := TreeView1.Selected.getFirstChild;
    end;
  end;
end;

//2.判断是否有子节点
procedure TForm2.Button2Click(Sender: TObject);
begin
  if TreeView1.Selected.HasChildren then
  begin
    ShowMessage('有子节点');
  end;
end;