Справочник функций и процедур Delphi: SelectDirectory

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

SelectDirectory
Функция
Выводит диалоговое окно, с помощью которого пользователь может выбрать директорию FileCtrl unit
  
1 function SelectDirectory ( const Caption : string; const StartDir : WideString; out ChosenDir : string ) : Boolean;

2 function SelectDirectory ( var CurrDir : string; DialogOptions : TSelectDirOpts ; HelpContext : Longint ) : Boolean;

Google  
 
Описание
Функция выводит диалоговое окно, чтобы позволить пользователю выбрать директорию ChosenDirectory (диск + путь).

Вариант 1.

Показывает диалог обзора (просмотра) Windows, инициализированный заданной переменной StartDir. Текст Caption показывается в верхней части диалога.

Если пользователь нажимает ОК, выбранная директория возвращается в переменной ChosenDir, а возвращаемое значение равно True.

Если пользователь нажмет кнопку Cancel, то ничего не будет выведено, а возвращаемое значение равно False.

Вариант 2.

Выводит разные типа диалога, которые отображают файлы в текущей выбранной директории.

Значение CurrDir используется для перемещения показа в заданную директорию, и оно заменяется выбранным значение, если пользователь нажмет ОК.

Параметры DialogOptions и HelpContext выходят за рамки этого описания. Они могут быть без опасений установлены в значения по умолчанию, как в данном примере.

Похожие команды
ChDir  Выбор диска и директории ( папки ), в которой будет производиться работа

CreateDir  Создаёт директорию

GetCurrentDir  Возвращает текущий каталог (диск плюс каталог)

GetDir  Получает текущий каталог (диск плюс путь) для указанного диска.

MkDir  Создаёт каталог

RemoveDir  Позволяет удалить директорию

RmDir  Удаление каталога

SetCurrentDir  Изменяет текущую директорию

ForceDirectories  Создаёт новый путь каталогов

 
Пример кода : Позвольте пользователю выбрать диалог, используя первую версию
var
  chosenDirectory : string;
begin
  // Просим пользователя выбрать требуемый каталог, стартовый каталог C:
  if SelectDirectory('Выберите каталог', 'C:\', chosenDirectory)
  then ShowMessage('Выбранный каталог = '+chosenDirectory)
  else ShowMessage('Выбор каталога прервался');
end;
{Диалог отобразит - пользователь выбрал C:\Program Files и нажал OK}

Выбранный каталог = C:\Program Files
 
Пример кода : Позвольте пользователю выбирать диалог, используя вторую версию
var
  options : TSelectDirOpts;
  chosenDirectory : string;
begin
  chosenDirectory := 'C:\';  // Установка начального каталога
  // Просим пользователя выбрать используя полностью различные диалоги!
  if SelectDirectory(chosenDirectory, options, 0)
  then ShowMessage('Выбранный каталог = '+chosenDirectory)
  else ShowMessage('Выбор каталога прервался');
end;
{Диалог отобразит - пользователь выбрал C:\Program Files и нажал OK}

Выбор каталога прервался
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook