Erstelle dir ein Callback, mit dem das 2. Fenster dasjenige Benachrichtigen kann, welches es aufgerufen hat.
2. Fenster:
Delphi-Quellcode:
TFormXXX = class(TForm)
.
.
.
protected
FOnRefreshDataDisplay: TNotifyEvent;
public
property OnRefreshDataDisplay: TNotifyEvent read FOnRefreshDataDisplay write FOnRefreshDataDisplay;
end;
.
.
.
procedure TFormXXX.HierSollDasAndereFensterAktualisiertWerden;
begin
if Assigned(FOnRefreshDataDisplay) then
FOnRefreshDataDisplay(self);
end;
Aufrufendes Fenster:
Delphi-Quellcode:
TFormMain= class(TForm)
.
.
.
protected
procedure DoRefreshDataDisplay(Sender: TObject);
end;
procedure TFormMain.DoRefreshDataDisplay(Sender: TObject);
begin
// Hier Anzeige aktualisieren
end;
procedure TFormMain.ZweitesFensterAnzeigen;
begin
FormXXX.RefreshDataDisplay := DoRefreshDataDisplay;
FormXXX.Show;
end;