Öffnen:
Delphi-Quellcode:
procedure THauptform.Grundeinstellungen1Click(Sender: TObject);
begin
Grundeinstellungen.ShowModal; // Fenster grundeinstellungen öffnen
IF Grundeinstellungen.ModalResult = mrOK then
Datenneuladen1.OnClick(Datenneuladen1);
end;
Im OnClose:
FreeAndNil(Grundeinstellungen);
Fehlermeldung beim Schließen der Form siehe Anhang.