Endlosschleife im OnClose verhindern..

[PhöniX]

Hi,
ich hab irgendwo im OnClose von einer Form eine MessageBox, die Close abfängt und dann die Anweisung:
close; Aber das führt zu einer Endlossschleife, denn wenn geschlossen wird, wird abgefangen und geschlossen und dann ist ja wieder OnClose aktiv und es fängt wieder von vorne an.
Wie kann man dsa verhindern?

[Christian Seehase]

Moin Phönix,

schau Dir mal das Event OnCloseQuery an.

[SirThornberry]

Delphi-Quellcode:

procedure TMyForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  messagebox(....
end;

wo liegt jetzt das problem?? beim schließen wird einfach die message angezeigt und danach wird geschlossen.
Nach der Messagebox kannst du ja auch noch nen speicherdialog machen nach dem dann eben geschlossen wird

[PhöniX]

Zitat von Christian Seehase:

Moin Phönix,

schau Dir mal das Event OnCloseQuery an.

Oh cool da is nen OnCloseQuery Event...und weiter??

[Christian Seehase]

Moin Phönix,

ich habe vermutet, dass man mit Hilfe der MessageBox entscheiden kann, ob denn nun geschlossen werden soll oder nicht, und für diese Prüfung ist halt das OnCloseQuery gedacht.
Ansonsten kannst Du Dir ein weiteres Close sparen.

[Matze]

Im OnCloseQuerry kannst du CanClose auf false stellen, dann wird die Form nicht geschlossen.

[Sharky]

[quote="PhöniX"...und weiter?? [/quote]

Was hälst Du denn davon einmal im OI das Event OnCloseQuery auszuwählen und dann die Geheimtaste F1 zu drücken?