Delphi. LiveBindings.Binding Expressions2

В данном посте, сделаем почти всё тоже самое за исключением набора компонентов, он будет таким — 2 TrackBars и BindingList1

4

 

Свойство BindExpression сделаем BiDirectional…

5

 

У любого из обработчиков OnChange для компонента TrackBar напишем следующий код, и сделаем его общим для второго TrackBar

 

В результате получим одновременное перемещение ползунков…

6