Also ein entsprechendes LiveBindings-Sample habe ich irgendwie nicht gefunden. Ich habe aber mit dem TBindScope weitergemacht und es funktioniert schon halb.
Auf dem
VCL habe ich ein TEdit und ein TButton und folgenden Code:
Delphi-Quellcode:
TForm1 = class(TForm)
bndscp1: TBindScope;
edt1: TEdit;
bdglst1: TBindingsList;
bndxprsnedt: TBindExpression;
btn1: TButton;
procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);
end;
TTest = class
public
s: string;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
ShowMessage(Test.s);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Test := TTest.Create;
Test.s := 'xxxyyy';
bndscp1.DataObject := Test;
end;
SourceExpression ist auf Test.s gesetzt.
In der TEdit wird jetzt korrekt 'xxxyyy' angezeigt. Aber bei Änderung des TEdit.Text ändert sich Test.s nicht.
Da gibt es doch bestimmt eine noch fehlende Einstellung, oder? Ich hatte mit diesem Direction schon rumgespielt, brachte aber nichts.