Выбор директории

← →
Натуся © (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 прописывался адрес выбранной директории.

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

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

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

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

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

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

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

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