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

Question

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

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

Answer 1

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

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

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

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

Answer 2

您可以使用FileCtrl单元中的SelectDirectory

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

end;

Answer 3

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

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

Answer 4

参见示例代码：

---

Delphi提示＃157：选择文件夹对话框 http://www.scalabium.com/faq/dct0157.htm

---