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.