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.