Oder Du spendierst dem Datamodul ein selbst definiertes Ereignis als Property, nennen wir es OnMitgliederDataChange.
Delphi-Quellcode:
procedure TfrmMitglieder.FormCreate(Sender: TObject);
begin
dmMitglieder := TdmMitglieder.Create(frmMitglieder);
dmMitglieder.OnMitgliederDataChange:=MitgliederDataChange;
emd;
procedure TfrmMitglieder.MitgliederDataChange;
begin
lblAlter.Caption := 'Alter: ' // ... und was sonst noch zu tun ist;
end;
procedure TdmMitglieder.dscMitgliederDataChange(Sender: TObject; Field: TField);
begin
if assigned(OnMitgliederDataChange) then
OnMitgliederDataChange;
// ...
end;
Vorteil: Das Datamodul muss dein frmMitglieder nicht kennen. So wie du es momentan hast, gibt es da ja eine zirkuläre
Unit-Referenz, auch wenn die durch das Uses Mitglieder im Implementation-Teil nicht zu Tage tritt.