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

【问题标题】：How to update Label caption when EditBox text change using LiveBindings in Delphi?在 Delphi 中使用 LiveBindings 更改 EditBox 文本时如何更新标签标题？
【发布时间】：2017-11-11 09:45:24
【问题描述】：

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

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;

请帮忙。非常感谢。

【问题讨论】：

这就是为编辑控件设计绑定的方式（从控件的CM_EXIT 消息处理程序通知观察者）。
能否请您告诉我您用于此操作的 Edit 和 Label 中的可绑定成员？

标签： delphi delphi-xe2 delphi-xe5 livebindings

【解决方案1】：

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

【讨论】：