Delphi.LiveBindings. Связывание списков

Сегодня с помощью LiveBindings попробуем связать 2 списка таким образом…

7

 

 

В ListBox1 будет создаваться список из 10 элементов и автоматически переноситься в ListBox2 c помощью LiveBindings. Для этого с палитры компонентов нам понадобится BindingList1

8

 

2 раза кликаем на Bindinglist1 и в открывшемся редакторе жмем Ins… После чего выбираем TBindList

9

 

Далее, в редактор добавится BindList1. Выделим его и откроем инспектор объектов. Заполним SourceComponent и ControlComponent.

10

 

Далее, жмем на «многоточие» FormatControlExpressions и в появившемся окне жмем Ins, чтобы вставить новую строку… Выделяем её и идем в инспектор объектов. Там в 2-х строках прописываем одно и тоже слово items

11

 

Последний шаг, прописываем код…

 


Конечно, для решения данной задачи — путь не самый оптимальный. Самым простым было бы сделать традиционный Assign в Create формы и на обработке кнопки. Но для демонстрации LiveBindings и ее части — связывания списков самое то.