Im OnDestroy des Aufrufenden Fensters Code zum Schließen des aufgerufenen Fensters einbasteln und ev. Werte von dort abfragen:
Delphi-Quellcode:
Unit MainForm
uses SubForm;
//Verweis auf SubForm-Unit
type
TMainForm :
class(TForm)
...
procedure FormDestroy(Sender: TObject);
...
end;
var frmMain : TMainForm;
implementation
procedure TMainForm.FormDestroy(Sender: TObject);
begin
if frmSubForm.Showing
then begin
//Frage alle Werte aus SubForm ab
self.Irgendeinwert := frmSubForm.DerGleicheWert;
end;
end;
end.
Unit SubForm
type
TSubForm =
class(TForm)
...
procedure FormShow(Sender: TObject);
end;
var frmSubForm : TSubForm;
implementation
uses MainForm;
//Rückverweis auf HauptForm-Unit
procedure TSubForm.FormShow(Sender: TObject);
begin
self.Irgendeinwert := frmMain.Irgendeinwert;
end;
end.
Gruß