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

Written on . Posted in Delphi

ОГЛАВЛЕНИЕ

Страница 48 из 61

TDirectoryListBox

TObject -> TPersistent -> TComponent -> TControl -> TWinControl -> TCustomListBox -> TDirectoryListBox

Модуль FILECTRL

Страница Палитры компонентов System

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

property Drive: Char;

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

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

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

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

(Рb) property DirLabel: TLabel ;

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

Метод 
procedure OpenCurcent ;

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

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

procedure Update;

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

(Рb) property OnChange: TNotifyEvent;

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

(Рb) property FileList: TFileListBox;

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

форум delphi