Delphi文件夹选择对话框控件（支持新建文件夹）
Delphi 的文件夹选择对话框老实说有点原始，不支持新建文件夹？有点不方便吧。folderDg.pas 和 folderDg.dcr 这套组合就挺实用的，做了个小控件，界面直接拖进窗体就能用，还支持创建新文件夹，省了不少事。
这个控件的底子是继承了标准对话框，比如 TOpenDialog 那种，加了个“新建文件夹”按钮。你可以设置 InitialDir 来指定默认目录，也能自定义对话框标题，比较灵活。
关键在于它的使用方式顺手，放到窗体上之后，一般只要调用 Execute 方法就能弹出选择框。用户点“确定”，你就能拿到路径，存在 FileName 里；点取消，返回就是空，逻辑清楚。
如果你用户能在对话框里新建个目录，控件也帮你封装好了。配合 OnCreateFolder 事件下就行，想写入日志或实时刷新界面都方便。
资源文件 folderDg.dcr 也别忘了引进来，图标什么的靠它。不然运行时看不到控件界面元素，会一脸懵。
如果你平时写一些需要用户手动选目录的程序，比如文件分类器、批工具，或者那种带导入功能的后台工具，这个控件用起来真心省事不少。
对了，如果你想看看相关的扩展或者变体，像 FolderDlg 文件夹对话框类 这种文章也可以参考下，思路挺接近。
，如果你还在用老旧的 SelectDirectory 那种方式，切换一下这个自定义控件，体验会好多。
文件大小：1.14KB
评论区