Форум: "Основная";
Текущий архив: 2004.02.10;
Скачать: [xml.tar.bz2];
Вниз
Выбор директории Найти похожие ветки
← →
Натуся (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 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.10;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.013 c
