|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
20.08.2007, 13:05 | #1 |
Форумчанин Подтвердите свой е-майл
Регистрация: 07.07.2007
Сообщений: 241
|
Выбор папки
Какие настройки нужно применить к opendialog, чтобы выбирался не файл, а папка?
|
20.08.2007, 13:17 | #2 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
никакие, используй другие компоненты
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
20.08.2007, 18:30 | #3 |
Форумчанин
Регистрация: 05.08.2007
Сообщений: 225
|
Вот пример
Код:
|
21.08.2007, 22:29 | #4 |
Новичок
Джуниор
Регистрация: 21.08.2007
Сообщений: 1
|
))
Можно так - в фильтр ввести *\*.* - он будет отображать только папки, а потом определять при изменении текущей папки проверять её на подходящесть )) и закрывать Opendialog при нужде.
|
22.08.2007, 10:04 | #5 |
Great Code Monkey
Форумчанин
Регистрация: 09.08.2007
Сообщений: 533
|
Я бы вместо SelectDirectory использовал SHBrowseForFolder.
|
22.08.2007, 11:18 | #6 |
Пользователь
Регистрация: 08.12.2006
Сообщений: 36
|
Вот пример использования SHBrowseForFolder:
Код:
Знание этого – Мудрость.
Умение этим пользоваться – Искусство. |
22.08.2007, 11:47 | #7 |
Форумчанин Подтвердите свой е-майл
Регистрация: 07.07.2007
Сообщений: 241
|
pinhead что в uses надо?
|
22.08.2007, 11:51 | #8 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
ShellAPI, ShlObj
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
22.08.2007, 11:56 | #9 |
Форумчанин Подтвердите свой е-майл
Регистрация: 07.07.2007
Сообщений: 241
|
добавил в uses shlobj;
потом на buttonclick написал: Код:
и указывает на строку lpItemID := SHBrowseForFolder(BrowseInfo); |
22.08.2007, 12:02 | #10 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
var
TitleName: string; lpItemID: PItemIDList; BrowseInfo: TBrowseInfo; DisplayName: array[0..MAX_PATH] of char; TempPath: array[0..MAX_PATH] of char; begin FillChar(BrowseInfo, sizeof(TBrowseInfo), #0); BrowseInfo.hwndOwner := <твоя форма>.Handle; BrowseInfo.pszDisplayName := @DisplayName; TitleName := 'Please specify a directory'; BrowseInfo.lpszTitle := PChar(TitleName); BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS; lpItemID := SHBrowseForFolder(BrowseInfo); if lpItemId <> nil then begin SHGetPathFromIDList(lpItemID, TempPath); ShowMessage(TempPath); GlobalFreePtr(lpItemID); end;
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск папки | WOLFak | Общие вопросы Delphi | 9 | 21.01.2008 14:49 |
Случайный выбор с папки | Marsik | Помощь студентам | 2 | 15.12.2007 19:04 |
Папки | xTANATOSx | Общие вопросы Delphi | 1 | 05.11.2007 16:26 |
ЗАДНИЙ ФОН ПАПКИ В XP | BanDit | Свободное общение | 3 | 16.06.2007 21:37 |
Отслеживает появление в папке файлов. слежение за определенным файлом в определенной папке. | RammFan | Win Api | 1 | 09.06.2007 11:09 |