Also irgendwie ist das alles zu kompliziert und undurchsichtig.
Dieses Ja/Nein-Formular ist sehe ich eindeutig als
modales Formular.
Der Benutzer kann entweder Ja oder Nein wählen (oder Schliesen-Icon als 3. Möglichkeit).
Das modale Formular gibt einfach zurück für was sich der Benutzer entschieden hat.
Und das modale Formular benötigt keinerlei Wissen über das andere Formular.
Das bewirkt eine saubere Entkoppelung der beiden Formulare!
Delphi-Quellcode:
// liefert mrYes, mrNo oder mrAbort jenachdem wie sich der Benutzer entscheidet
function FrageUserWasErWill:TModalResult;
var
f : TFormJaNein;
begin
f := TFormJaNein.Create(nil);
try
f.Caption := 'Wollen Sie das Internet wirklich löschen ?';
result := f.ShowModal;
finally
f.Free;
end;
end;
....
var
erg : TModalResult;
f2 : TForm2;
begin
// dieser Code steuert den Ablauf
erg := FrageUserWasErWill;
if erg = mrAbort then
exit; // User hat Close-Icon geklickt (Programm beenden?)
f2 := TForm2.Create(Application);
if erg = mrYes then
f2.BombeAktiv := True
else
f2.BombeAktiv := false;
f2.Show;