CanClose

[Perlsau]

Dein Programm macht genau das, was du programmierst: Wenn du in deinem ButtonClick-Ereignis und in CanClose die Abfrage machst, ob das Programm geschlossen werden soll, dann erscheint die Abfrage auch zweimal. Das heißt, du hast es eben nicht so gemacht, wie von mir vorgeschlagen: Im Button-Ereignis steht nur: Close; drin. Alles andere regelst du in OnCloseQuery. Am besten du machst dir eine private Procedure, wo du alles reinschreibst, was beim Programmende ausgeführt werden soll. Drückt der Anwender dann Yes bei der Abfrage in CloseQuery, ob wirklich beendet werden soll, rufst du diese Procedure auf und setzt danach CanClose (in CloseQuery) auf True. Drückt der Anwender No, wird nichts ausgeführt, CanClose wird nicht auf True gesetzt und dein Programm läuft weiter.

Was genau verstehst du denn jetzt daran nicht?

Code gibt's diesmal keinen.

Eine Fehlerbeschreibung muß nicht zwingend eine Compilermeldung sein, sondern kann, wie von dir eben formuliert, auch eine Beschreibung des unerwünschten Verhaltens sein. Dagegen sagt "geht nicht" überhaupt nichts aus und ermöglicht auch keine Hilfestellung, ohne dir wieder alles aus der Nase ziehen zu müssen.

[Luki206]

Jetzt geht es. ButtonClick = nur Close.
Danke.

[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