本文整理自网络,侵删。
if cxDBTreeList1.FocusedNode.HasChildren = true then
begin
Application.MessageBox('当前目录下有下级节点,不能删除!', '提示', MB_OK + MB_ICONINFORMATION);
exit;
end;
https://www.cnblogs.com/windson/p/12663153.html
相关阅读 >>
Delphi 中相对路径与绝对路径、系统环境变量等相关函数说明
更多相关阅读请进入《Delphi》频道 >>