本文整理自网络,侵删。
if cxDBTreeList1.FocusedNode.HasChildren = true then
begin
Application.MessageBox('当前目录下有下级节点,不能删除!', '提示', MB_OK + MB_ICONINFORMATION);
exit;
end;
https://www.cnblogs.com/windson/p/12663153.html
相关阅读 >>
Delphi 字符串转换为16进制整数 整数转换为16进制字符串
更多相关阅读请进入《Delphi》频道 >>