如何在Delphi中使用LiveBindings更改EditBox文本时更新Label标题？

Question

如果我使用以下代码，我可以在更改编辑框文本时更新标签标题：

procedure TForm1.Edit1Change(Sender: TObject);
begin
    Label1.Caption:=Edit1.Text;
end;

如果我对LiveBindings执行相同的操作，那么当我将焦点设置在另一个控件上时，它只会更新标题，例如复选框。我需要同步我放在编辑框中的每个字符的标签。我用过这个

设置为绑定。

我也尝试过以下代码，但对我不起作用： 使用System.Bindings.helper;

procedure TForm1.Edit1Change(Sender: TObject);
begin
   TBindings.Notify(Sender, 'Text');
end;

请帮忙。非常感谢。

Answer 1

procedure TForm1.Edit1Change(Sender: TObject);
begin
  TLinkObservers.ControlChanged(Sender as TEdit);
end;