Abfrage ob Pogramm geschlossen werden soll.

[Sudrow]

Zitat von HenKst:

Diese Codezeile seht vermutlich im CloseQuerry?

Wenn du im CloseQuerry close aufrufst, kommst du da ja wieder an^^.

Du musst den var parameter "Canclose" vom querry auf true/false setzen

true wenns geschlossen werden soll, false wenn nicht.

Leider wohl doch da aufgerufen xD

Delphi-Quellcode:

procedure THaupt.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg('Programm schließen?', mtConfirmation, [mbyes, mbno], 0) = mrYes then
  close
end;

Nur wie setz ich das CanClose auf false, also wie ist der Befehl dafür?

Danke schonmal für die Antwort.