Как вызвать диалог выбора пути к папке в delphi?

Пользователь

от marisa , в категории: Другие , 7 месяцев назад

Как вызвать диалог выбора пути к папке в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

Пользователь

от jamey.kohler , 7 месяцев назад

@marisa 

Для вызова диалога выбора пути к папке в Delphi можно использовать стандартный компонент TFileOpenDialog или TOpenDialog, если вы используете более старую версию Delphi.


Пример использования TFileOpenDialog:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
var
  FolderDialog: TFileOpenDialog;
begin
  FolderDialog := TFileOpenDialog.Create(nil);
  try
    FolderDialog.Options := [fdoPickFolders];
    if FolderDialog.Execute then
    begin
      ShowMessage('Selected folder: ' + FolderDialog.FileName);
      // Обработка выбранной папки
    end;
  finally
    FolderDialog.Free;
  end;
end;


Пример использования TOpenDialog:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
var
  FolderDialog: TOpenDialog;
begin
  FolderDialog := TOpenDialog.Create(nil);
  try
    FolderDialog.Options := [ofPathMustExist, ofFileMustExist];
    FolderDialog.Filter := 'Folders|*.none';
    if FolderDialog.Execute then
    begin
      ShowMessage('Selected folder: ' + ExtractFilePath(FolderDialog.FileName));
      // Обработка выбранной папки
    end;
  finally
    FolderDialog.Free;
  end;
end;


Оба эти компонента позволяют выбрать папку на диске и получить путь к выбранной папке в строковой переменной. При необходимости, этот путь можно использовать для выполнения операций с файлами и папками в выбранной директории.