|
Страница 45 из 59
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 (пиктограмма, представляющая собой открытую или закрытую папку в зависимости от состояния каталога), доступный для чтения и записи. |