Скачать: CL | DM;

Как выбрать только папку в OpenDialog   Найти похожие ветки 

← →
ambhtr   (2007-06-21 17:56) [0]

Как можно, используя OpenDialog выбирать только папку не выбирая файл?

---

← →
iXT ©   (2007-06-21 17:59) [1]

Он для этого не предназначен. Пишите программы правильно, что бы пользователям было удобно!

---

← →
Германн ©   (2007-06-21 18:02) [2]

> ambhtr   (21.06.07 17:56)

Используй SelectDirectory

---

← →
ambhtr   (2007-06-22 11:12) [3]

Спасибо, Германн!
А как теперь можно получить список всех файлов вложенных в выбранную папку? Чтобы это делал не пользователь, а программа.

---

← →
iXT ©   (2007-06-22 11:16) [4]

FindFirst, FindNext, FindClose + F1

---

← →
ambhtr   (2007-06-22 11:57) [5]

Спасибо. Буду разбираться.
А не подскажите, как задать положение открывающегося диалога SelectDirectory. Он у меня почему-то открывается в правом нижнем углу.

---

← →
iXT ©   (2007-06-22 12:12) [6]

Третий параметр функции. Он var

---

← →
ambhtr   (2007-06-22 12:26) [7]

Не совсем понял намек...
Пишу:
var
Dir: string;
if SelectDirectory("Укажите каталог","C:\111\Delphi",Dir) then
Третий параметр - директория которая выбрана.
Кстати, то что я указываю свой Caption:= "Укажите каталог", тоже почему-то не работае. Пишет свое "Обзор папок".
Так а как же задать место положения диалога?

---

← →
iXT ©   (2007-06-22 12:36) [8]

> Dir: string;
Dir:="Начать отсюда";
> if SelectDirectory("Укажите каталог","C:\111\Delphi",Dir)
> then

---

← →
ambhtr   (2007-06-22 12:44) [9]

Извините, наверное я не совсем точно задал вопрос. Меня интересует не "место в проводнике", меня интересует местоположение диалогового окна на экране. Можно ли для него задать что-то типа: Dialog.Left := 10; а Dialog.Top := 30; ???

---

← →
iXT ©   (2007-06-22 12:59) [10]

Надо искать дискриптор окна и ... дальше смотри как работать с чужими формами.

---

← →
iXT ©   (2007-06-22 13:00) [11]

ЗЫ а зачем?

---

← →
ambhtr   (2007-06-22 13:20) [12]

что бы пользователям было удобно!

---

← →
iXT ©   (2007-06-22 14:31) [13]

Им и так будет удобно. Не загоняйся тем чем не надо.

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.018 c