Текущий архив: 2005.09.18;
Скачать: CL | DM;

Вниз

Как вызвать такой диалог?   Найти похожие ветки 

← →
rts111 ©   (2005-08-12 09:20) [0]

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

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

---

← →
begin...end ©   (2005-08-12 09:28) [1]

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

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

---

← →
rts111 ©   (2005-08-12 09:45) [2]

Ok!

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.09.18;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.037 c