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.