OnCloseQuery

[Willie1]

Hallo Delphi-Freunde*innen,
ich habe in einem eigenen Prg in einem OnCloseQuery-Ereignis das Fenster mit der Frage "Beenden ? [Ok][Abbrechen]" nach bekannten Muster.
Wenn ich das Pgr offen lasse und Windows herunterfahre, kommt zu eine Warnung. Falls ich dann Windows nicht beende und dann [Abbrechen] klicke, läuft das Pgr. natürlich weiter.
Beende ich jetzt das Prg, öffnet sich nicht das oben genannte Fenster, sondern es kommt es zu einer Zugriffsverletzung und das Prg lässt sich nicht schließen.
Bevor ich hier etwas poste, wollte ich es eben nochmal ausprobieren und es war alles in Ordnung! Was zum Teufel ist da los? Die Zugriffsverletzung ist auch schon früher aufgetreten.

Genau das richtige zu Zeiten von Corona?!:)
Gruß und danke Willie.

[Willie1]

Obwohl ich mich über eine Antwort gefreut hätte, ziehe ich meine Frage in diesen Corona-Zeiten zurück. Es gibt Wichtigeres.
Bleibt gesund Willie.

[Redeemer]

Ohne Minimalbeispiel kann dir keiner helfen.

[hoika]

Hallo,
Die Zugriffsverletzung ist auch schon früher aufgetreten.

-> MadExcept benutzen, um die Stelle zu finden.

[Willie1]

Wie gesagt, der Fehler tritt nur gelegentlich auf und nur beim Herunterfahren von Windows, nicht beim normalen Beenden des Programms.

OnCoseQuery(CanClose...) symbolisch
begin
CanClose:=FrageBox('Progamm wirklich beenden?') = mrOK
if CanClose then
begin
hier schließe ich StringListen Objekte usw.
end
end

Der Fehler ist blöd, weil er sich nicht debuggen lässt und dann auch nur gelegentlich auftritt. Ist mir vielleicht auch nicht aufgefallen.
Willie.

[hoika]

Hallo,
ahhhh

Zitat:

hier schließe ich StringListen Objekte usw.

Warum?
Dazu ist FormDestroy da.

[Delphi.Narium]

Zitat:

Zitat von Willie1 (Beitrag 1460569)

Wie gesagt, der Fehler tritt nur gelegentlich auf und nur beim Herunterfahren von Windows, nicht beim normalen Beenden des Programms.

OnCoseQuery(CanClose...) symbolisch
begin
CanClose:=FrageBox('Progamm wirklich beenden?') = mrOK
if CanClose then
begin
hier schließe ich StringListen Objekte usw.
end
end

Der Fehler ist blöd, weil er sich nicht debuggen lässt und dann auch nur gelegentlich auftritt. Ist mir vielleicht auch nicht aufgefallen.
Willie.

Eigentlich ist klar, dass bei dieser Konstellation ein Fehler auftreten kann.

Grob in etwa sowas:

Windows soll beendet werden.
Das sagt den Programmen: Aufhören.
Die reagieren darauf und beenden sich.
Windows wartet ein bisserl.
Und dann kommt: Wer nicht hören will muss fühlen.
Sprich: Programme, die sich nicht selbst beenden, werden dann von Windows beendet.

Dein Programm bekommt von Windows gesagt: Aufhören.
Es fragt Dich dann: Wirklich? Darf ich auch?
Das dauert ggfls. ein bisserl.
Ggfls. länger, als Windows zu warten bereit ist.
Deshalb wird das nachfragende Programm von Windows beendet, während es noch auf die Antwort auf das "Darfichauch" warte. Kommt nun hier hinein das "Ja, Du darfst" seitens des Anwenders, ist nicht auszuschließen, dass die schon windowsseitig begonnen "Aufräumarbeiten" Teile dessen, was Du bei if CanClose wegräumen möchtest, nicht mehr existiert. Und dann hast Du den "Salat", äh, die Zugriffsverletzung

Bitte bedenke: Wenn Dein Programm beim Beenden nachfragt, ob es beendet werden soll oder nicht, was passiert, wenn in der Fragebox nicht mit mrOk geantwortet wird?
Windows wird das Programm trotzdem beenden, es sei denn, Du signalisiert Windows, dass es sich bitte nicht beenden soll und alle noch laufende Programm weiterlaufen dürfen.

Alternativ im OnCoseQuery abfragen, ob Windows beendet wird. Wenn ja, dann darf kein Dialog zur Abfrage auf ein Programmende erfolgen.

Eventuell hilft Dir dashier dabei: http://delphidabbler.com/tips/185

Und, wie Frühlingrolle schon richtig bemerkte:

Im OnCloseQuery wird gefragt, ob aufgehört werden darf oder eben auch nicht.

Im OnClose wird dann aufgeräumt, nicht in dem Ereignis, in dem nachgefragt wird.
Oder halt, wenn im FormCreate was erstellt wurde, wird das im FormDestroy weggeräumt. Nicht jedoch im OnCloseQuery.

[Willie1]

Hallo Leute,

Delphi-Narium, das hast du prima erklärt! Danke.
ich habe verstanden. Das um zu bauen, ist ja nicht allzu schwierig.

Gruß Willie.

[himitsu]

Und wenn die Form durch ein Free geschlossen wird, dann wird OnClose/OnCloseQuery nichtmal aufgerufen.

Statt einer MessageBox kann es besser sein hier einen Dialog auf Basis von TForm zu benutzen, denn sobald Application den Befehl für das Beenden bekommt, werden alle modalen Fenster geschlossen und dein Programm kann ohne Warten runterfahren.



Auch kann es nicht schaden auf die Message für das Beenden von Windows zu reagieren und benentsprechend zu steuern ob der Fragedialog überhaupt aufgehn soll.



Und nein, on OnClose/OnCloseQuery gibt man nichts frei, außer es wurde im OnShow erstellt,
wobei eben zu beachten ist, dass OnClose nicht immer aufgerufen wird, womit man in OnShow/OnClose niemals etwas erstellen/freigeben darf.
(außer man macht das Freigeben sowohl im OnClose als auch nochmal im OnDestroy, falls es noch nicht passiert war)

[hoika]

Hallo
korrekt,
FormCreate: Erzeugen von Objekten
FormDestroy: Freigeben von Objekten

Auch im Sinne des folgenden Codes:

Delphi-Quellcode:

Form2:=TForm2.Create(Self);
Form2.TuWas;
Form2.Free;