Die Komponente "Save Dialog" auf dem Formular ablegen.
Wir gegen davon aus, daß die Komponente den Namen "SaveDialog1" hat.
Innerhalb der Button1 Prozedur den Code eingeben:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7:
| begin if SaveDialog1.Execute then begin end; end; |
SaveDialog1.Execute ist für zwei Punkte zuständig: Es startet das Save Dialaog Fenster modal, d.h. die Ausführung des Programms bleibt in der Unit an dem Punkt SaveDialog1.Execute stehen. Es geht nicht weiter bis ein OK oder Cancel Button im SaveDialog1 gedrückt wird. Wurde ein OK Button gedrückt, dann gibt Execute den Wert TRUE zurück und die IF Abfrage und der Block wird ausgeführt.