В данном посте, сделаем почти всё тоже самое за исключением набора компонентов, он будет таким – 2 TrackBars и BindingList1
Свойство BindExpression сделаем BiDirectional…
У любого из обработчиков OnChange для компонента TrackBar напишем следующий код, и сделаем его общим для второго TrackBar
|
1 2 3 4 5 |
procedure TForm1.TrackBar1Change(Sender: TObject); begin {Добавить в uses System.Bindings.Helper} TBindings.Notify(Sender,''); end; |
В результате получим одновременное перемещение ползунков…
