На этом шаге мы рассмотрим компонент TDualListDialog.
Компонент делает доступным вашему приложению диалог с двумя списками, где элементы можно перемещать из одного списка в другой, а также менять порядок следования элементов внутри списка. По сравнению с одноименной формой из Delphi Gallery, кроме оформления в виде компонента, добавлены возможность Drag&Drop, задания порядка внутри списка, интерфейсные улучшения. Задайте исходное состояние списков в свойствах List1 и List2, вызовите диалог функцией Execute и считайте новый состав списков.
| Свойство | Описание |
|---|---|
| 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. Надеемся, что изложенный материал будет вам полезен.
