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

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

Как вызвать такой диалог?

rts111 ©   (2005-08-12 09:20:00) 

Как вызвать такой диалог?

http://galaxy3000.narod.ru/dialog.jpg

---

rts111   (2005-08-12 09:45:00) [1]

Ok!

Именно то, что нужно!!!

---

begin...end   (2005-08-12 09:28:00) [2]

С помощью функции SelectDirectory из модуля FileCtrl.

var
 D: string;
begin
 if SelectDirectory('Выберите директорию:', '', D) then
   ShowMessage(D)
end.

---

Наверх