VPF::выбор каталога - Форум программистов

santilaas

Дата 12.11.2006, 19:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет

Люди добрые, подскажите, пожалуйста.
Нужно, чтобы при нажатии на кнопку открывалось окно выбора каталога (а не файла)
может нужно использовать OpenDialog, но тогда что там задавать?

--------------------

[

Matematik

Дата 12.11.2006, 19:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Выбрать Select
+
папку Directory
=
SelectDirectory()

santilaas

Дата 13.11.2006, 02:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет

Цитата

Выбрать Select
+
папку Directory
=
SelectDirectory()

- прошу прощения - где сие указать?

--------------------

[

Poseidon

Дата 13.11.2006, 02:17 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код


Uses {...}, ShellApi,ShlObj;

{...}
procedure TForm1.Button1Click(Sender: TObject);
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 := Form1.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;
 end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

santilaas

Дата 13.11.2006, 07:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет

Poseidon, огромное спасибо - все отлично работает. Но неужели никак проще в Дельфях нельзя этого сделать?

--------------------

[

Guedda

Дата 13.11.2006, 07:31 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Цитата(santilaas @ 13.11.2006, 07:10

)

Но неужели никак проще в Дельфях нельзя этого сделать?

Да это и так просто smile

Но можно ещё попробовать поиграть с TDirectoryListBox. Находится на вкладке Win 3.1

--------------------

Ll 2

Alexeis

Дата 13.11.2006, 10:18 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(santilaas @ 13.11.2006, 07:10

)

Но неужели никак проще в Дельфях нельзя этого сделать?

Есть сторонние компоненты, которые делают тоже самое, но имеют интерфейс стандартных диалогов. Я тоже было огорчен когда не нашел такого удобного диалога. Хорошо хоть в KOL его догадались добавить smile

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

santilaas

Дата 13.11.2006, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет

Цитата

Хорошо хоть в KOL его догадались добавить

- а что подразумевается под KOL?

--------------------

[

Guedda

Дата 13.11.2006, 13:35 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

http://kolmck.net/

Это сообщение отредактировал(а) Guedda - 13.11.2006, 13:39

--------------------

Ll 2

Snowy

Дата 13.11.2006, 13:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

KOL (FAQ): http://vingrad.ru/DELPHI-DELPHI-000150
KOL Home: http://kolmck.net/rindex.htm (альтернативный: http://www.kolnmck.ru/ )
Но это не имеет отношения к вопросу.

Добавлено @ 13:53
По данному вопросу - FAQ: http://vingrad.ru/DELPHI-DLP-002543

santilaas

Дата 13.11.2006, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет

Всем большое спасибо - получил все что хотел

--------------------

[

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »