Verständnisfragen zu Forms

[sx2008]

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;