Problem mit Abfrage zum beenden ohne speichern

[DeddyH]

Wie Sharky schon sagt, benutze OnCloseQuery und setze die Variable CanClose entsprechend.

[5etH]

ich habe das nun so gelöst

Delphi-Quellcode:

procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     if not (Gespeichert) then
      begin
      if  (MessageDlg('Wollen Sie das Programm beenden ohne zu speichern!?'
          ,mtWarning, [mbYes, mbNo], 0, mbYes) = mrNo) then
          action :=  caNone;
          end;
          //gespeichert := true;
     end;

[Sharky]

Zitat:

Zitat von 5etH

ich habe das nun so gelöst

Finde ich persönlich nicht den sauberen Weg.

Warum nicht so:

Delphi-Quellcode:

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

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  MsgResult : Integer;
begin
  if not (Gespeichert) then 
  begin
    MsgResult := MessageDlg('Wollen Sie das Programm beenden ohne zu speichern!?',
     mtWarning, [mbYes, mbNo], 0, mbYes);
    case MsgResult  of
      mrYes : CanClose := True;
      mrNo : CanClose := False;
    end;
  end
  else
  begin
    CanClose := True; // Hatte ich im ersten Post vergessen :oops:
  end;
end;

[Edit]: Etwas nachgetragen ;-)

[Aurelius]

Nimm die Lösung von Sharky, ist besser ^^

[DeddyH]

Etwas kürzer, aber mit derselben Logik:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := true;
  if not (Gespeichert) then
  begin
    CanClose := MessageDlg('Wollen Sie das Programm beenden ohne zu speichern!?',
     mtWarning, [mbYes, mbNo], 0, mbYes) = mrYes;
  end;
end;

[Sharky]

Zitat:

Zitat von DeddyH

Etwas kürzer, aber mit derselben Logik:

Hihi,

darauf habe ich ja nur gewartet ;-)
Ich habe den Code mit absicht nicht optimiert um den Ablauf genau aufzuzeigen :tongue:

[DeddyH]

Schadet ja nicht, so kann er sich zwischen beiden Möglichkeiten entscheiden und hat die Logik trotzdem schön nachvollziehbar vor Augen :zwinker: :cheers: