Delphi下选择目录对话框

选择文件的对话框，就经常用，发现选择目录的对话框倒是用的少，经常有看到网上在问的

其实，有两个函数实现，在filectrl单元，记得uses

function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;

function SelectDirectory(const Caption: string; const Root: WideString; var Directory: string; Options: TSelectDirExtOpts = [sdNewUI]; Parent: TWinControl = nil): Boolean; overload;

两个都是叫selectdirectory，重载的。

1.function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;

options可参考帮助。

最重要的是用法，帮助有示例：

uses FileCtrl;
const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:Windows';
  if FileCtrl.SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;

效果如图：

就是说，是老式的，win95的样式。

2.function SelectDirectory(const Caption: string; const Root: WideString; var Directory: string; Options: TSelectDirExtOpts = [sdNewUI]; Parent: TWinControl = nil): Boolean; overload;

参数说明：

caption：对话框标题

root：对话框显示的可选择根目录

directory：选择结果保存的变量

options：选项，参考filectrl.pas源码，有以下选择项可组合

  TSelectDirExtOpt = (sdNewFolder, sdShowEdit, sdShowShares, sdNewUI, sdShowFiles,
    sdValidateDir);

parent：父窗体

默认有个[sdNewUI]的选项

效果，就是我们现在常见的，下图，添加了sdNewFolder的选项

所以说呢，要实现目录选择对话框，还是要用新的比较好。