CanClose

[Der schöne Günther]

Als weiteren Vorschlag würde ich die Prüfung mit dem "Großer Gott, WIRKLICH SCHLIEßEN !?!?!"-Dialog und dem Abschlussdialog ("Es wurden X Crêpes verkauft") in eigene Methoden auslagern, so dass es ungefähr so aussieht:

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
begin
   self.Close();
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   ZeigeAbschlussDialog();
end;

procedure TForm4.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   if UserIstSichWirklichSicher() then
      CanClose := True
   else
      CanClose := False
   ;
end;

[Perlsau]

Zitat von Der schöne Günther:

in eigene Methoden auslagern, ...

Genau das hatte ich weiter oben bereits empfohlen. Aber unser Luki ist ja bereits zum nächsten Projekt gesprungen, für das er gerne fertige Konzepte und Codezeilen hätte.

[Der schöne Günther]

Stimmt, hatte ich überlesen

Vielleicht ist die nächste Gruppenumarmung auch wieder überfällig