[XE5] Richtiges Ereignis gesucht

[Sir Rufo]

Eine Möglichkeit ist das Observer Pattern.

Eine andere Möglichkeit wäre einen Messenger zu implementieren, wo sich jede Instanz einklinken kann um bestimmte Nachrichten mitzuhören und zu reagieren, wenn da was Interessantes dabei ist.

http://www.galasoft.ch/mvvm/ (Messenger ist kein Delphi, aber die Idee ist gut)

Generell würde ich dir auch empfehlen, eine zentrale Methode jeweils zum Laden und Speichern der Control-Inhalte zu schaffen.

Meine BasisForm sieht z.B. so aus:

Delphi-Quellcode:

TFormView = class( TForm )
  procedure ControlChange( Sender : TObject );
private
  FModelLoading : Boolean;
protected
  procedure DoLoadFromModel; virtual; abstract;
  procedure DoSaveToModel; virtual; abstract;

  procedure LoadFromModel;
  procedure SaveToModel;
  procedure SyncWithModel;
end;

procedure TFormView.LoadFromModel;
begin
  if FModelLoading then Exit;

  FModelLoading := True;
  try
    DoLoadFromModel;
  finally
    FModelLoading := False;
  end;
end;

procedure TFormView.SaveToModel;
begin
  if FModelLoading then Exit;
  DoSaveToModel;
end;

procedure TFormView.SyncWithModel;
begin
  SaveToModel;
  LoadFromModel;
end;

procedure TFormView.ControlChange( Sender : TObject );
begin
  SyncWithModel;
end;

An jedes Control (Edit, ComboBox, etc.) hänge ich einfach die Methode ControlChange dran und kann mir sicher sein, dass die Daten ausgetauscht werden.
Wie der Austausch konkret aussieht, das wird in DoLoadFromModel und DoSaveToModel in den abgeleiteten Forms implementiert.

Wenn du dann eine Nachricht bekommst, dass sich an den Daten etwas geändert hat, dann brauchst du auch nur ganz stumpf in der Form LoadFromModel aufrufen und du bist fein raus.