В данном посте свяжем Edit и Label с помощью BindingExpressions. Это ещё один вариант связывания объектов, кроме QuickBindings. Данный пример взят из книги Д. Осипова.
Разместим на форме Edit, Label и BindingList. Два щелка по последнему и откроется редактор связей. Правой кнопкой мыши и выберите New Binding. Выберем TbindExpression.
Далее, не выходя из редактора, выберем в инспекторе объектов созданную связь и настроим свойства следующим образом…
На последнем шаге, опишем событие Edit OnChangeTracking…
|
1 2 3 4 5 |
procedure TForm1.Edit1ChangeTracking(Sender: TObject); begin {Добавить в uses System.Bindings.Helper } TBindings.Notify(Edit1,'Text'); end; |
