Abfrage ob Pogramm geschlossen werden soll.

[Sudrow]

Hallo Leute, ich bin gerade leicht am verzweifeln.
Ich wollte bei meinem Programm eine Abfrage machen, wenn man das Programm schließen will, ob man sich sicher ist oder nicht.
Wenn man es nicht will sol ldas Programm nicht zugehen, ansonsten schon.

Ich habs mit dem Quellcode probiert

Delphi-Quellcode:

if MessageDlg('Programm schließen?', mtConfirmation, [mbyes, mbno], 0) = mrYes then
  close

Aber das will irgendwie nicht so ganz.

Wenn ich auf Nein klicke schließt sich das Programm, bei Ja kommt der Dialog erneut und so weiter.
Hoffe mir kann jemand helfen.

mfg Sudrow

[HenKst]

Diese Codezeile seht vermutlich im CloseQuerry?(wenn nicht sollte sie da hin )

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.

Wenn du momentam bei deinem Dialog "nein" klickst schliesst sich dein Programm weil CanClose default mässig true ist.

[Progman]

Wo rufst du denn den MessageDlg auf? Nicht etwa in FormClose?

[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.

[SirThornberry]

Auch im FormClose hat so ein Dialog eine Chance zu funktionieren wenn man den Parameter Action manipuliert.
@Sudrow: Schau am besten mal in die Hilfe zu den Ereignissen OnClose und OnCloseQuery. Da werden sicher auch die Parameter erklärt.

[HenKst]

Das ist ja nicht OnCloseQuery sondern OnClose^^

Schau dir mal TForm.OnCloseQuery an

€dit
hab mal selber in die hilfe geschaut^^

wenn du im OnClose Action auf caFree setzt, wird dein form auch geclosed.

[DeddyH]

Zusammengefasst:

Delphi-Quellcode:

procedure TFormWuppdi.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   CanClose := MessageDlg('Programm schließen?', mtConfirmation, [mbyes, mbno], 0) = mrYes;
end;

[SirThornberry]

oder eben:

Delphi-Quellcode:

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

[Progman]

Versuchs mal im CloseQuery:

Delphi-Quellcode:

if MessageDlg('Programm schließen?', mtConfirmation, [mbyes, mbno], 0) = mrYes then
 CanClose := True else CanClose := False;

[Sudrow]

Wo Danke für die vielen und schnellen Antworten.
Ich hab mir jetzt eine der vielen rausgesucht und sie funktioniert.

Dankeschön
Schönen Tag noch.
MFG Sudrow