delphi – 使用TOpenDialog选择目录

发布时间：2020-12-15 05:23:55 所属栏目：大数据来源：网络整理

导读：我真的想知道各种方法，我可以选择一个目录与TOpenDialog，无论是下载一个新的组件或使用Delphi提供的，但最好使用Delphi提供的东西。在此之前，我一直在使用SelectDirectory命令，但我认为这将是一个困难，我的程序的用户查找指定的目录。我认为SelectDir

我真的想知道各种方法，我可以选择一个目录与TOpenDialog，无论是下载一个新的组件或使用Delphi提供的，但最好使用Delphi提供的东西。

在此之前，我一直在使用SelectDirectory命令，但我认为这将是一个困难，我的程序的用户查找指定的目录。

我认为SelectDirectory是’弱’，因为它可以是一个长过程，当搜索你想要的目录。例如，您想导航到应用程序数据目录。在那里导航多久或困难？最终，用户甚至可能无法到达他们想要的目录。

我需要这样的地方，用户可以复制和粘贴目录到顶部的目录地址栏。

谢谢你的所有答案。

解决方法

您可以使用 TFileOpenDialog(在Vista上)：

with TFileOpenDialog.Create(nil) do
  try
    Options := [fdoPickFolders];
    if Execute then
      ShowMessage(FileName);
  finally
    Free;
  end;

就个人而言，我总是在Vista上使用TFileOpenDialog，并在XP上使用SelectDirectory(好的！)，如下所示：

if Win32MajorVersion >= 6 then
  with TFileOpenDialog.Create(nil) do
    try
      Title := 'Select Directory';
      Options := [fdoPickFolders,fdoPathMustExist,fdoForceFileSystem]; // YMMV
      OkButtonLabel := 'Select';
      DefaultFolder := FDir;
      FileName := FDir;
      if Execute then
        ShowMessage(FileName);
    finally
      Free;
    end
else
  if SelectDirectory('Select Directory',ExtractFileDrive(FDir),FDir,[sdNewUI,sdNewFolder]) then
    ShowMessage(FDir)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!