delphi - 使用 Delphi 创建文件夹选择对话框的最常用方法是什么？

Question

Delphi 2009 中似乎没有一个简单的组件可用于创建文件夹选择对话框，尽管通过 TOpenDialog 提供了一个文件选择对话框。

使用 Delphi 创建现代文件夹选择对话框的最常用方法是什么？

score 16 · Accepted Answer

FileCtrl.pas 中有两个重载例程，称为 SelectDirectory

对于现代外观，使用第二种形式，带有 sdNewUI

var
  dir : string;
begin
  dir := 'C:\temp';
  FileCtrl.SelectDirectory('Select', 'C:\', dir, [sdNewFolder, sdNewUI], Self);
end;

注意：sdNewFolder、sdNewUI 等仅适用于 D2006+

score 2 · Accepted Answer

您可以使用 FileCtrl 单元中的 SelectDirectory

using FileCtrl;
var
  St: string;
begin
  St:='c:\';
  if SelectDirectory(St,[],0) then 
  begin
  end;

end;

score 1 · Accepted Answer

您可以从“ http://bak-o-soft.dk/Delphi/PBFolderDialog.aspx ”下载一个组件PBFolderDialog ，该组件非常易于使用，并且可以访问 Windows“SHBrowseForFolder”对话框的所有选项；内置的东西不做的事情。

它是带有源代码的免费软件，移植到 Delphi 2009 并不难。

score 0 · Accepted Answer

查看示例代码：

Delphi 技巧#157：选择文件夹对话框 http://www.scalabium.com/faq/dct0157.htm

4 回答 4