| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как открыть папку [D7]

hgd ©   (2004-11-29 16:49:00) 

Какой код позволяет выбрать пользователю папку, как бы анало TOpenDialog.

---

begin...end   (2004-11-30 16:51:00) [1]

> [4] hgd   (30.11.04 15:36)

uses FileCtrl;

var
 Dir: String;

begin
 if SelectDirectory('Выбор папки', 'C:\', Dir) then
   // Пользователь нажал в диалоге кнопку "ОК"
end.

---

hgd   (2004-11-30 15:36:00) [2]

Приведите пример пожайлуста с SelectDirectory.

---

begin...end   (2004-11-29 18:09:00) [3]

> [2] hgd   (29.11.04 18:05)

Ну вот [1] - это он и есть.

Ещё можете воспользоваться компонентом TDirectoryListBox.

---

hgd   (2004-11-29 18:05:00) [4]

А был какой то код, чтобы создать диалог для открытия папок.

---

ssk   (2004-11-29 17:05:00) [5]

SelectDirectory ?

---

Наверх