Перейти к содержанию
Fire Monkey от А до Я
  • 0

opendialog для папок


des80

Вопрос

Рекомендуемые сообщения

  • 0
  • Модераторы

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

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

SelectDirectory

Ссылка на комментарий
Гость
Эта тема закрыта для публикации ответов.
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...