Problem mit Abfrage zum beenden ohne speichern

[Sharky]

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