判断当父节点含有子节点时 不能删除此父节点

if cxDBTreeList1.FocusedNode.HasChildren = true then
 begin
    Application.MessageBox('当前目录下有下级节点，不能删除！', '提示', MB_OK + MB_ICONINFORMATION);
    exit;
 end;