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

filectrl.pas中有两个重载例程,称为selectdirectory

要获得现代外观,请使用第二个表单,并使用sdnewui

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

注:sdnewfolder、sdnewui等仅在d2006中提供+

可以使用文件控制单元中的selectdirectory

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

end;

您可以下载组件 PBFolderDialog 从“ http://bak-o-soft.dk/Delphi/PBFolderDialog.aspx 这是非常容易使用,并提供访问Windows“shbrowseforfolder”对话框的所有选项的权限;这是内置的对话框所不具备的功能。

这是免费的源码,不太难移植到Delphi2009。

参见示例代码:

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