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

Выбор директории   Найти похожие ветки 

← →
Натуся ©   (2004-02-01 22:26) [0]

Как запустить диалог выбора директории?

---

← →
Sergey_Masloff   (2004-02-01 22:34) [1]

SelectDirectory()
uses FileCtrl не забудь.

---

← →
Натуся ©   (2004-02-01 22:49) [2]

Спасибо!

---

← →
Натуся ©   (2004-02-01 22:50) [3]

Это всё? Да?

---

← →
Плохиш   (2004-02-01 22:55) [4]

> Натуся © (01.02.04 22:50) [3]
> Это всё? Да?

Что "всё"? Что "Да"?

---

← →
Натуся ©   (2004-02-01 22:56) [5]

Ладно, всё равно спасибо.

---

← →
Anatoly Podgoretsky ©   (2004-02-01 23:04) [6]

Натуся © (01.02.04 22:50) [3]
Нет, обрати внимание, что есть две процедуры с одинаковым именем, выбери правильную.

---

← →
Натуся ©   (2004-02-01 23:12) [7]

У меня ещё вопрос. Какие параметры?

---

← →
Eugene ©   (2004-02-01 23:14) [8]

Параметры чего?

---

← →
Натуся ©   (2004-02-01 23:16) [9]

SelectDirectory()

---

← →
Eugene ©   (2004-02-01 23:18) [10]

Вот так:

uses FileCtrl;

const
SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := "C:\MYDIR";
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;
/

---

← →
Sergey_Masloff   (2004-02-01 23:19) [11]

Скажу (только по секрету). Это конфиденциально...
1)Открываешь Delphi Help (например нажав F1) или пишешь слово SelectDirectory наводишь курсор и опять же нажимаешь F1
2)Видишь окно в котором написано сверху SelectDirectory function
3) Чуть ниже мелким шрифтом написано Example. В переводе это значит пример использования. Нажимаешь на нее
4) Видишь:

uses FileCtrl;

const
SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := "C:\MYDIR";
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;


5) Any Comment?

P.S. С другими функциями это тоже работает! Проверь! ;-))

---

← →
Натуся ©   (2004-02-01 23:21) [12]

Мне нужно, чтобы в edit прописывался адрес выбранной директории.

---

← →
Eugene ©   (2004-02-01 23:22) [13]

А можно немного по-подробнее?

---

← →
Натуся ©   (2004-02-01 23:26) [14]

Например, нажмёшь кнопку выбора директрии, выберешь и после её выбора в евше будет прописан весь путь к выбранной директории.

---

← →
Eugene ©   (2004-02-01 23:30) [15]

Пардон мадам, но я абсолютно ничего не понял ...

---

← →
Плохиш   (2004-02-01 23:38) [16]

Натуся, замени в приведённом тебе 2! раза коде слова Label1.Caption на Edit1.Text и будешь приятно удовлетворена.

PS. Господин модератор, Вы заметили? Я промолчал про включение кое-чего :-| Леди всё-таки ;-)

---

← →
Anatoly Podgoretsky ©   (2004-02-01 23:54) [17]

Леди, он намекает :-)

---

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

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



Память: 0.48 MB
Время: 0.017 c