本文整理自网络,侵删。
if cxDBTreeList1.FocusedNode.HasChildren = true then
begin
Application.MessageBox('当前目录下有下级节点,不能删除!', '提示', MB_OK + MB_ICONINFORMATION);
exit;
end;
https://www.cnblogs.com/windson/p/12663153.html
相关阅读 >>
Delphi dbexpress的upwherekeyonly的使用注意事项
Delphi firedac 下的 sqlite [2] - 第一个例子
更多相关阅读请进入《Delphi》频道 >>