mob25
На этом шаге мы рассмотрим компонент TDualListDialog.
Компонент делает доступным вашему приложению диалог с двумя списками, где элементы
можно перемещать из одного списка в другой, а также менять порядок следования элементов внутри списка.
По сравнению с одноименной формой из Delphi Gallery, кроме оформления в виде компонента,
добавлены возможность Drag&Drop, задания порядка внутри списка, интерфейсные улучшения.
Задайте исходное состояние списков в свойствах List1 и List2, вызовите диалог функцией
Execute и считайте новый состав списков.
Таблица 1. Свойства компонента TDualListDialog
| Свойство | Описание |
|---|---|
| property List1: TStrings; | Список слева. |
| property List2: TStrings; | Список справа. |
| function Execute: Boolean; | Вызов диалога с двумя списками, где можно поменять элементы местами внутри списка или перенести элементы из одного списка в другой. |
Рассмотрим пример, демонстрирующий работу компонента TDualListDialog. Поместим на форму компоненты: кнопку TButton,
которую будем использовать для вызова формы со списками, и компонент TDualListDialog.
Рис.1. Форма с размещенными компонентами
Свойства List1 и List2
компонента TDualListDialog заполним списками строк и напишем обработчик события OnClick кнопки TButton:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.DualListDialog1.Execute;
end;
После нажатия кнопки TButton появится форма с двумя списками, элементы которых можно переносить из одного в другой (рис. 2).
Рис.2. Работа приложения
Текст этого примера можно взять здесь.
Мы закончили изучение компонентов вкладки RX Tools. Надеемся, что изложенный
материал будет вам полезен.
