opendialog для папок

[des80]

Если ли в firemonkey какой нибудь компонент для того чтобы выбрать не файл, а папку?

[Andrey Efimov]

Так не устраивает?

procedure TFormMain.sbSelectFolderClick(Sender: TObject);
var
  PathFolder: string;
begin
  if SelectDirectory('Выбор папки...', '', PathFolder) then
    ePathFolder.Text := PathFolder;
end;

SelectDirectory

[des80]

Вау! Это работает! Потрясающе

[Vitaldj]

13 часов назад, des80 сказал:

Вау! Это работает! Потрясающе

Не забудь в конце кода добавить: // абракадабра, сим салабим....