Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Открыть папку

Автор: Addmin 1.6.2007, 18:36

Добрый день!

Как в Delphi с помощью OpenDialog (и иже с ним) можно выбрать папку, а не файл (ну и получить её путь, соответственно smile

)? Как OpenDir в MCK smile

Заранее спасибо!

Автор: Sunvas 1.6.2007, 18:43

Сначала поищи http://forum.vingrad.ru/act-Search/CODE/show/searchid-c84fd930af61c881f737c4e165e9f31c/search_in-posts/result_type/topics/flag/search/highlite/selectdirectory/index.html. Если ничего не найдешь - дам готовый код.

Добавлено через 1 минуту и 40 секунд
Общем чтоб долго искал. В Uses добавляешь FileCtrl, а в программе используй функцию SelectDirectory.

Автор: Addmin 1.6.2007, 19:01

Большое спасибо smile

Добавлено через 1 минуту и 16 секунд

Цитата

Общем чтоб долго искал.

Недоброжелатель ;)

Автор: Snowy 1.6.2007, 19:06

В DRKB решение найдёшь ты...

Автор: Addmin 1.6.2007, 19:14

Тёмную силу чуствую я... smile

Автор: Данкинг 1.6.2007, 20:47

В Business skin компонент есть соответствующий.

Автор: JanMihail 4.6.2007, 18:37

ИМХО самый лучший вариант - это SelectDirectory.
Использовать легко:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: String;
begin
  SelectDirectory('Выберите директорию:', '', Dir);
end;

В переменную Dir запишется путь к выбранной директории. Ну и uses FileCtrl не забудь

Автор: Sunvas 4.6.2007, 19:31

JanMihail, посмотри второй пост.