Hilfe: Wie fragen, ob man speichern will?

[coolio]

Guten Tag

Habe ein Problem. Und zwar habe ich einen kleinen Editor programmiert und möchte nun, dass wenn man auf den Button "Neu" klickt, gefragt wird ob man vorher noch speichern möchte oder eben nicht. Habe es bis jetzt nur mit Showmessage hinbekommen, aber da kann man ja nur ok klicken. Habe es auch schon mit einer neuen Form probiert, doch von der neuen Form aus kann ich irgendwie nicht mehr auf die Prozdeduren von meiner anderen Form zugreifen.
Hoffe ihr könnt mir helfen, Danke im Vorraus!

MFG


[edit=Matze]Im Titel "specihern" durch "speichern" ersetzt, damit man über die Suche leicht fündig wird. MfG, Matze[/edit]

[Die Muhkuh]

Hi,

schau Dir mal die MessageBox an, mit der kannst Du sowas machen.

[mkinzler]

Vielliecht mit einer MessageBox oder einem MessagDlg

[craash]

hi,

ich hab das in einem kleinen netzwerkchat mal so gelöst

Delphi-Quellcode:

procedure speichern;
begin
     if
       form1.savedialog1.execute   //auf form1 liegt eine TSaveDialog-Komponente
     then
         try
            form1.mem1.lines.savetofile(form1.savedialog1.filename);
         except
            showmessage('Fehler beim Speichern des Verlaufs!');
     end;
end;


[...]
if mem1.lines.text <> ''  //der chatverlauf wird in einem memo angezeigt
     then
         if messagedlg('Achtung! Sie sind im Begriff das Programm zu verlassen. Wollen sie den Chatverlauf zuvor speichern?', mtwarning, [mbyes, mbno], 0) = mryes
         then
           begin
             speichern;   //procedure speichern aufrufen
             close;
           end
         else close
else close;

ist evtl etwas umständlich aber ich hoffe es hilft dir :D


mfg

[mkinzler]

Warum eine freie Prozedur und keine Methode?

[craash]

sollte ja nur ein gutgemeinter vorschlag sein von noob zu noob :(

[mkinzler]

Dann fasse meine Nachfrage als gutgemeinten Verbesserungsvorschlag auf. :zwinker:

[coolio]

Danke für die Antworten, aber entweder bin ich blind, oder es gibt keine Messagebox bei mir. Ich finde nix :( @crash: Danke dafür, aber ich versuche es erst lieber selbst zu lösen;)

[Hansa]

Das ist eine WinAPI-Funktion. Die Unit Windows muss deshalb in der uses-Liste stehen.

[DeddyH]

Oder Application.MessageBox nehmen, die Unit Forms ist ja vermutlich bereits eingebunden.

[sx2008]

Zitat:

Zitat von coolio

... und möchte nun, dass wenn man auf den Button "Neu" klickt, gefragt wird ob man vorher noch speichern möchte oder eben nicht.

Wenn du deinen Editor als MDI-Anwendung programmierst, dann ist der Benutzer nicht gezwungen seine aktuelle Datei zu speichern oder zu verwerfen.
Aus Sicht des Benutzer ist das wesentlich angenehmer und produktiver, wenn er mehrere Dateien nebeneinander editieren kann.
In den Beispielen von Delphi müsste übrigens ein kleiner Editor (MDI-Anwendung) dabei sein.
Dort kannst du abschauen, wie das geht.

[coolio]

Verstehe ich alles nicht. Kann mir das einer genau erklären? Oder wie löse ich mein Problem jetzt am einfachsten?

[mkinzler]

Was verstehst du nicht?

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

[coolio]

Zitat:

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 ;)