Beenden über Taskleiste (Rechtscklick+beenden) abfangen

[Mutier]

Hallo,

ich habe mit Delphi7 ein kleines Tool erstellt, das ein Form enthält. Bevor mein Programm via Rechtsklick auf die Taskleiste und "Beenden" abgeschossen wird, möchte ich gerne noch ein paar Dinge erledigen. Kann mir bitte jemand sagen, welches Event da ausgelöst wird? Onclose und Ondestroy sind es leider nicht.

Vielen Dank schon mal im Voraus!
Grüße
Mutier

[Nils_13]

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
  // Hier kommt der Code rein
  CanClose := True;
end;

[Mutier]

Hi Nils,

vielen Dank für diese ultraschnelle Antwort. Genau danach hatte ich gesucht! :)

Ciao
Mutier

[Martin W]

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
  // Hier kommt der Code rein
  CanClose := True;
end;

Das CanClose ist der Prozedur ist aber meines Wissens nach nicht notwendig. Er arbeitet die gesamte Prozedur ab, prüft anschließend wie CanCLose steht:

Wenn es True ist, wird die Anwendung beendet, bei False bleibt die Anwendung aktiv. Kurz gesagt: es geht auch so:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  // Hier kommt der Code rein
end;