Dialog beim Beenden des Programms

[Stefanotis]

Folgendes Problem:

Ich schreibe derzeit ein Programm für die Verwaltung eines Kinderheims. Es geht grob gesagt darum, die Stunden direkt digital am PC zu erfassen, dazu habe ich eine Eingabemaske erstellt, die anschließend anhand der Daten ni der Lage ist ein PDF Dokument zu erstellen, dass die Fachleistungsstunden usw. einheitlich auflistet und darstellt.
Nun häte ich gerne, dass beim Beenden des Programms, wenn man es also schließen will eine Meldung erscheint, ob man ich sicher ist, das Programm zu beenden und sich dann 3 Schaltflächen auf dieser Messagebox befinden, eine zum speichern, eine zum Fortfahren und eine zum Beenden des Programms.

Wie mache ich das?




Vielen Dank für eure Hilfe bereits im Vorraus :)

[MagicAndre1981]

schau dir das Event OnCloseQuery an.

[vlees91]

Zitat:

Zitat von MagicAndre1981

schau dir das Event OnCloseQuery an.

Richtig. Da müsste man dann auch durch setzen einer Variable das Beenden verhindern können, falls der User auf Abbrechen klickt.

[Klaus01]

Zitat:

Zitat von Stefanotis

Folgendes Problem:


Achja, ich arbeite zur Laufzeit des Programms mit dem TSavedialog, um das PDF zu speichern, wenn man gegebene Schaltfläche anklickt. Wie kriege ich das hin, dass das Programm bemerkt, dass es eine bereits vorhandene Datei überschreibt uznd vorher nachfragt, ob das richtig ist?

Du könntest mit FileExists nachschauen, ob das File schon vorhanden ist
und dann entsprechend darauf reagieren.

Grüße
Klaus

[SirThornberry]

Bitte pro Thread nur eine Frage. Mache für die Frage zum überschreiben doch bitte ein neues Thema auf sonst wird das ein riesen Durcheinander und keiner weiß am Ende welche Antwort zu welche Frage gehört.

[Stefanotis]

Ich hab mich eurer Tipps angenommen und mit Hilfe der Delphi Hilfe folgendes in den Code eingearbeitet:


folgendes Streht bei den Prozeduren und Variablen

Delphi-Quellcode:

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

weiter unten im Quellcode dann die Deklaration:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('Close the form?', mtConfirmation,
    [mbOk, mbCancel], 0) = mrCancel then
     CanClose := False;
end;

Allerdings klappts nicht. Wenn ich die Form nun schließe passiert nichts, sie wird einfach ohne Meldung geshclossen.

Die Deklaration der Prozedur hab ich so wie sie da steht aus der Delphi Hilfe übernommen.

[Luckie]

Hast du das Eregins auch im OI zugewiesen?

[Stefanotis]

Aaaaaaaaaaaaaaaaaaah..okay kleiner Fehler *hehe*

Danke dir, jetzt gehts!