if cxDBTreeList1.FocusedNode.HasChildren = true then
begin Application.MessageBox('当前目录下有下级节点,不能删除!', '提示', MB_OK + MB_ICONINFORMATION); exit; end;
windson 2020-04-08 21:57 原文
if cxDBTreeList1.FocusedNode.HasChildren = true then
begin Application.MessageBox('当前目录下有下级节点,不能删除!', '提示', MB_OK + MB_ICONINFORMATION); exit; end;