Programm beenden

[shAd]

Hallo,
Mein Programm kann man durch das Menü beenden, oder nunmal mit dem Windows "Kreuzchen". Nun habe ich bei dem Kreuz das Problem, das ich dort Probleme mit der Abfrage ("Wirklich Beenden?; "Vor dem Beenden Speichern?") bekomme. Wenn ich dort diesen Code benutze (der vom Beenden-Knopf im Menü):

Delphi-Quellcode:

procedure TForm1.Beenden1Click(Sender: TObject);
var S: Integer;

begin
if OpenDialog1.FileName='' then begin
OpenDialog1.FileName:='Unbenannt'
end;

if Form1.SynMemo1.Text='' then begin
if Application.MessageBox('Programm wirklich Beenden?', 'eEdit', MB_ICONQUESTION + MB_YESNO) = IDYES then
   Form1.Close
   end

   else begin
   S := Application.MessageBox('Datei wurde geändert, vor dem Beenden abspeichern?', 'eEdit', MB_ICONQUESTION + MB_YESNOCANCEL);
      if S=IDYES then begin
         if SaveDialog1.Execute then begin
  SynMemo1.Lines.SaveToFile(SaveDialog1.FileName);
  Form1.Close;
         end;
       end;

       if S=IDNO then
      Form1.Close
      end

end;

dann gibts Probleme, was irgendwie auch klar ist. Da wenn das Windows Kreuz gedrückt wird OnClose vom Form1 benutzt wird.

Auf gut Deutsch, ich würde am liebsten das schließen durch das Kreuz umfangen, und dann durch meinen Code "ersetzen". Oder gibts im OnClose die Möglichkeit das Beenden abzubrechen? Das währe auch ne Möglichkeit.

Den mit meinem Code im OnClose würde sich das Programm ja beenden, egal auf was für einen Knopf man drückt. Hauptsache, er ist durch mit der Prozedur.

gruß,
shAd

[Luckie]

Schreibt den Code doch in das OnClose Ereignis und rufe in dem Button einfach close auf.

Deine Form1.Close Aufrufe ersetzt du da natürlcih durch exit, macht ja sonst keinen Sinn.

[shAd]

hab dies nun versucht - danke.

Doch wenn ich nun im Menü auf Beenden klicke werden die richtigen Fenster angezeigt ("Wirkliche Beenden"; Bei veränderter Datei: "Vor dem Beenden Speichern?").

Doch wenn ich nun über den Button "Close" aufrufe, beendet er das Programm nicht.

Wenn ich das "Kreuzchen drücke" (-D.h. OnClose direkt aufrufe) und dann auf Abbrechen drücke, beendet er das Programm trotzdem.

Das ganze sieht nun so aus:

Delphi-Quellcode:

procedure TForm1.Close(Sender: TObject);
var S: Integer;

begin
if OpenDialog1.FileName='' then begin
OpenDialog1.FileName:='Unbenannt'
end;

if Form1.SynMemo1.Text='' then begin
if Application.MessageBox('Programm wirklich Beenden?', 'eEdit', MB_ICONQUESTION + MB_YESNO) = IDYES then
   exit
   end

   else begin
   S := Application.MessageBox('Datei wurde geändert, vor dem Beenden abspeichern?', 'eEdit', MB_ICONQUESTION + MB_YESNOCANCEL);
      if S=IDYES then begin
         if SaveDialog1.Execute then begin
  SynMemo1.Lines.SaveToFile(SaveDialog1.FileName);
  exit;
         end;
       end;

       if S=IDNO then
      exit
      end

end;

und: "Close" im OnClick des Beenden Buttons.

gruß,
shAd

[Luckie]

OK. OnClose ist etwas blöd. Nimm OnCloseQuery. Und wenn er schließen soll, setzt du CanClose auf True ansonsten auf False.

[shAd]

Und wie baue ich das in meinen Button ein? Die Frage mag blöd klingen, aber ich kriegs nicht hin.

So hab ichs versucht: Funktioniert beim normalen Windows schließen einwandfrei. Nur mit meinem Button gehts nicht richtig (d.h. Fenster kommt, aber egal auf was fürn Knopf ich drücke, das Programm bleibt geöffnet.

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var S: Integer;

begin
if OpenDialog1.FileName='' then begin
OpenDialog1.FileName:='Unbenannt'
end;

if Form1.SynMemo1.Text='' then begin
   if Application.MessageBox('Programm wirklich Beenden?', 'eEdit', MB_ICONQUESTION + MB_YESNO) = IDYES then
   CanClose := TRUE
   else
   CanClose := FALSE;
end

   else begin
   S := Application.MessageBox('Datei wurde geändert, vor dem Beenden abspeichern?', 'eEdit', MB_ICONQUESTION + MB_YESNOCANCEL);
      if S=IDYES then begin
         if SaveDialog1.Execute then begin
  SynMemo1.Lines.SaveToFile(SaveDialog1.FileName);
  CanClose := TRUE;
         end;
       end;

       if S=IDNO then
      CanClose := TRUE;
       if S=IDCANCEL then
      CanClose := FALSE;
      end
end;


procedure TForm1.Beenden1Click(Sender: TObject);
begin
CloseQuery;
end;

gruß,
shAd

[phlux]

Hi!
Einfach

Delphi-Quellcode:

procedure TForm1.Beenden1Click(Sender: TObject);
begin
  Close;
end;

schreiben

mfg phlux

[shAd]

Da hab ich ja fast "zuviel" mitgedacht . Danke dir. Nun funktioniert das!

[phlux]

Zitat von shAd:

Da hab ich ja fast "zuviel" mitgedacht . Danke dir. Nun funktioniert das!

Macht nix, gern geschehen