XE3 Visual LiveBindings: двунаправленное соединение между TSpinBox и TTrackBar (FireMonkey)

Question

Я использую Delphi XE3 с пакетом обновления 1 (SP1). Я создал приложение Desktop FireMonkey и сбросил TSpinBox и TTrackBar в основной форме. Теперь я подключил свойство «Значение» TSpinBox и TTrackBar с помощью Visual Livebindings. IDE автоматически создала «TLinkControlToProperty» для их подключения. Когда я перемещаю ползунок на TTrackBar, значения в TSpinBox меняются. Но когда я изменяю значение в TSpinBox, значение TTrackBar не обновляется.

Как я могу изменить это на двунаправленное соединение с помощью LiveBindings? Моя цель - изменить свойство «Значение» TTrackBar, когда изменяется значение «Значение» TSpinBox. Кроме того, меня интересует решение, которое не использует событие OnChange для «TSpinBox». Возможно ли это, не вызывая потомок «TSpinBox»?

Answer 1

Вы должны добавить Binding через BindingList, определение источника и назначения, установить направление к dirBiDirectional и добавьте следующий код в ваш источник:

procedure TForm1.SpinBox1Change(Sender: TObject); 
begin 
BindingsList1.Notify(Sender, ''); 
end; 

procedure TForm1.TrackBar1Change(Sender: TObject); 
begin 
BindingsList1.Notify(Sender, ''); 
end; 

Что может быть сведено к

procedure TForm1.OneChangeEventForAllControlsUsingBindinglist1(Sender: TObject); 
begin 
BindingsList1.Notify(Sender, ''); 
end;