|
|
|
|
Вызывает стандартный диалог выбора каталога.
Синтаксис
| function SelectDirectory(
| | Title, | | Root, | | Options, | | Owner
| | ): String;
|
| Параметры
|
| Параметр
| Тип
| Описание
|
| Title
| String
| заголовок в верхней части диалога
|
| Root
| String
| корневой каталог
|
| Options
| Enumset
| свойства отображения диалога (см. ниже)
|
| Owner
| TComponent
| родительский визуальный компонент
|
|
| Параметр Options
|
| Значение
| Описание
|
| sdNewFolder
| отобразить кнопку "Новая папка" (при установленном свойстве sdNewUI)
|
| sdNewUI
| отобразить новый вид диалога
|
| sdShowEdit
| отобразить поле редактирования, содержащее имя текущего файла/каталога
|
| sdShowFiles
| отображать файлы
|
| sdShowShares
| отображать разделяемые сетевые ресурсы (автоматически включает свойство sdNewUI)
|
| sdValidateDir
| проверять существование выбранного файла/каталога
|
|
Возвращаемое значение
Строка с выбранным каталогом или пустая строка при отсутствии выбора.
// Главная форма
frm=new TForm();
frm.Caption="JS+ - функция JS+ SelectDirectory";
frm.Width =450;
frm.Height=300;
// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Выбрать"';
// Edit
lbe=new TLabeledEdit(frm);
lbe.EditLabel.Caption="Папка: ";
lbe.BorderStyle=bsSingle;
lbe.Left=10;
lbe.Width=frm.ClientWidth-lbe.Left*2;
lbe.Top=(stb.Top-lbe.Height-lbe.EditLabel.Height)/2;
// Кнопка
btn=new TButton(frm);
btn.Caption="Выбрать";
btn.Left=lbe.Left+lbe.Width-btn.Width;
btn.Top =stb.Top-btn.Height-10;
btn.OnClick=btn_Click;
frm.ShowModal();
// Обработчик события OnClick
function btn_Click(btn)
{
var fld_str;
if ((fld_str=SelectDirectory("Выберите папку:","",0,frm))!="")
lbe.Text=fld_str;
}
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
