Also hier erst mal das manuelle Binding in der View
Delphi-Quellcode:
procedure TMainView.ViewModelPropertyChanged( Sender: TObject; const e: TPropertyChangedArgs );
begin
inherited;
if FMain.IsAssigned
then
begin
if e.Match( 'Bar' )
then
BarEdit.Text := FMain.Reference.Bar;
if e.Match( 'Foo' )
then
FooEdit.Text := FMain.Reference.Foo;
if e.Matches( ['Bar', 'Foo'] )
then
CheckLabel.Text := Format( 'Bar: "%s", Foo: "%s"', [FMain.Reference.Bar, FMain.Reference.Foo] );
end;
end;
end.
ok cool, eine frage hätte ich da noch, sorgt dein Framework für den Aufruf der
ViewModelPropertyChanged
oder übersehe ich da irgendwo was?