Справочник по компонентам Delphi. Часть 2
Страница 45. TDirectoryListBox


TDirectoryListBox

TObject-”TPersistent->TComponent—”TControl->TWinControl—>
—>TCustomListBox->TDirectoryListBox
Модуль FILECTRL
Страница Палитры компонентов System

Компонент представляет список каталогов на текущем устройстве.

Устройство задается свойством
property Drive: Char;

а текущий каталог на нем — свойством:

property Directory: string;
При помощи метода
function GetIternPath(Index: Integer): string;

можно получить строку, содержащую полный путь к каталогу. Все символы в ней приводятся к верхнему регистру. Параметр Index означает номер каталога в списке (начиная с 0).

Если список каталогов связать со статическим текстом (меткой), пользуясь свойством

(Р)э) property DirLabel: TLabel ;

то в ней также будет отображаться путь к текущему каталогу. При этом, если имя полного пути не помещается в метке, то оно показывается в сокращенном виде (см. функцию MinimizeName).

Метод
procedure OpenCurcent ;

открывает текущий каталог, заменяя прежнее содержимое списка списком его дочерних подкаталогов.

Наконец, обновление содержимого списка у этого    компонента     осуществляет метод:

procedure Update;

Связать список каталогов с компонентом-списком файлов можно, обрабатывая событие:

(РЬ) property OnChange: TNotifyEvent;

или присвоив указатель на последний свойству:

(РЫ property FileList: TFileListBox;

В свойстве Items.Objects списка для каждого его элемента хранится объект типа TBitmap (пиктограмма, представляющая собой открытую или закрытую папку в зависимости от состояния каталога), доступный для чтения и записи.

 

 
« Предыдущая статья   Следующая статья »