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;