Form nichtmodal anzeigen

[Leuselator]

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ß