DSharp - Data bindings, MVVM und mehr für Delphi 2010 und höher

[TiGü]

Boah, ist das alles wegabstrahiert.
Man muss ja komplett umdenken!

Ich habe ein Frage an die Leute, die schon etwas mehr Erfahrung haben:

Ausgangspunkt ist das PageControlSample.
Was muss ich tun, damit das Edit-Feld (TEdit.Enabled) auf den Zustand der Checkbox "hört"?

Ich bräuchte mal einen kleinen Denkanstoss, weil ich nicht so wirklich weiß, wo ich da ansetzen soll:

Delphi-Quellcode:

unit DetailViewFrame;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, DSharp.Bindings.VclControls;

type
  TDetailView = class(TFrame)
    Close: TButton;
    InsertText: TEdit;
    EditEnabled: TCheckBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

initialization
  TDetailView.ClassName;

end.

Delphi-Quellcode:

unit DetailViewModel;

interface

uses
  DSharp.ComponentModel.Composition,
  DSharp.PresentationModel.ViewModelBase,
  Interfaces;

type
  TDetailViewModel = class(TViewModelBase, IDetailViewModel)
  private
    FInsertText : string;
    FEditEnabled : Boolean;
    procedure SetInsertText(const Value: string);
    function GetInsertText: string;
    function GetEditEnabled: Boolean;
    procedure SetEditEnabled(const Value: Boolean);
  public
    property InsertText : string
      read GetInsertText
      write SetInsertText;
    property EditEnabled: Boolean
      read GetEditEnabled
      write SetEditEnabled;
  end;

implementation

{ TDetailViewModel }

function TDetailViewModel.GetEditEnabled: Boolean;
begin
  Result := FEditEnabled;
end;

function TDetailViewModel.GetInsertText: string;
begin
  Result := FInsertText;
end;

procedure TDetailViewModel.SetEditEnabled(const Value: Boolean);
begin
  FEditEnabled := Value;
end;

procedure TDetailViewModel.SetInsertText(const Value: string);
begin
  FInsertText := Value;
end;

initialization
  TDetailViewModel.ClassName;

end.