Категория List

В этой категории выделяются две группы действий. Первые пять из них (табл. 8.3) автоматизируют работу с выделенными элементами списков. Оставшиеся два — TStaticListAction И TVirtualListAction — требуют отдельного рассмотрения.

Таблица 8.3. Действия по работе с выделенными элементами списков

Действие	Назначение
TListControlSelectAll	Выделяет все элементы списка. Активно, только если у списка свойство MultiSelect установлено в значение True
TListControlClearSelection	Отменяет выделение элементов в списке
TListControlDeleteSelection	Удаляет выделенные элементы
TListControlCopySelection	Копирует выделенные элементы списка в список Destination
TListControlMoveSelection	Переносит выделенные элементы списка в список Destination

Действия работают с компонентом TListBox, а в среде Kylix — еще и с TListview (не путать с одноименным компонентом для Windows — он не годится для данной категории). Подходит также и TCоmbовох.

В отличие от многих других действий члены этой категории могут явно связываться с нужным вам списком. Если задано значение свойства Listcontrol, то все действия производятся над ним. Если нет, то выбирается активный список из числа имеющихся на форме.

Особняком стоят два действия — TStaticListAction И TVirtualListAction

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

Дальнейшее просто — разработчик выбирает нужные компоненты TListBox, TComboBox и т. п. и в их свойстве Action указывает на действие — хранилище. Опубликовано свойство Action у компонента TCоmbовохЕх (впервые появившегося в Delphi 6). У остальных потомков TControl это свойство относится к группе видимости public, поэтому вы можете сделать присвоение при запуске приложения (в методе onCreate главной формы).

Если действие и компонент-список связаны, то должны происходить две вещи:

при изменении текущего элемента в любом из компонентов происходит синхронное изменение во всех остальных;
когда пользователь выбирает один из элементов списка, выполняется действие, связанное с этим списком, и вызывается метод-обработчик

type TItemSelectedEvent = procedure(Sender: TCustomListAction;

Control: TControi) of object;

property OnltemSelected: TItemSelectedEvent;

Содержание раздела