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

Question

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

使用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 +获得