Form ReCreate

[KrasserChecker]

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;