Hilfe: Wie fragen, ob man speichern will?

[coolio]

Zitat von DeddyH:

Ich nehme mal an, dass Du ein Merkmal hast, an dem Du erkennst, ob sich irgendetwas geändert hat und nenne das jetzt mal Modified.

Delphi-Quellcode:

procedure TDeinForm.ButtonNeuClick(Sender: TObject);
begin
  if Modified then
    case MessageBox(Handle,'Möchten Sie die Änderungen speichern?','Bestätigen',MB_YESNOCANCEL or MB_ICONQUESTION) of
      idYes   : Speichern; //musst Du natürlich implementieren
      idNo    :  NeuesDokument; //siehe oben
      idCancel:  exit; //gar nichts tun
    end;
  //weiterer Code
end;

Danke! Hat funktioniert