Sign in Join
Wiki copytemporary

Howto Use TSaveDialog/de: what changed

Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.

OldNewLine
11Zurück zu den [[Additional information/de|Zusätzlichen Informationen]].\
22
33Wie man den TSaveDialog benutzt
44
55![](/wiki-images/e/e1/Tsavedialog.png)
66
77Einfache Richtlinie: :
88
991\. Legen Sie eine SaveDialog-Komponente auf Ihrem Formular ab (an einer beliebigen Stelle, weil es später unsichtbar ist).
1010
11-` `![`Component_Palette_Dialogs.png`](/wiki-images/7/72/Component_Palette_Dialogs.png)\
12-` (Es ist der zweite Dialog von links aus der `[[Dialogs tab|Komponentenseite 'Dialogs']]`)`
11+```text
12+ Image:Component_Palette_Dialogs.png
13+ (Es ist der zweite Dialog von links aus der Komponentenseite 'Dialogs')
14+```
1315
14162\. Fügen Sie ein Memo in das Formular ein.
1517
1618![](/wiki-images/1/1b/Tmemo.png)
1719
18203\. Fügen Sie eine Schaltfläche in das Formular ein.
1921
2022![](/wiki-images/b/b2/Tbutton.png)
2123
2224Der [[IDE Window: Object Inspector|Objektinspector]] zeigt die Eigenschaften der Schaltfläche 'Button1' an. Ändern Sie die Eigenschaft 'Caption' vom angezeigten Wert 'Button1' zu 'Save'. Klicken Sie im Objektinspektor auf den Karteireiter 'Ereignisse'. Wählen Sie das Ereignis 'OnClick' aus: es erscheint ein kleiner Knopf mit drei Punkten (... Ellipsis). Klicken Sie darauf, dadurch kommen Sie automatisch zum Quelltexteditor und der Kursor steht an Anfang einer Codestelle. Ergänzen Sie folgenden Code:
2325
2426``` pascal
2527 procedure TForm1.Button1Click( Sender: TObject );
2628 begin
2729 if SaveDialog1.Execute then
2830 Memo1.Lines.SaveToFile( SaveDialog1.Filename );
2931 end;
3032```
3133
3234Die Methode [[doc:lcl/dialogs/tcommondialog.execute.html|Execute]] zeigt den Dialog 'Datei speichern' an. Sie liefert [[True|true]] zurück, wenn der Benutzer eine Datei ausgewählt hat, [[False|false]], wenn der Benutzer den Dialog abgebrochen hat.
3335
3436Die Eigenschaft [[doc:lcl/dialogs/tfiledialog.filename.html|Filename]] gibt den vollständigen Dateinamen inklusive Laufwerk und Pfad zurück.
3537
3638## Siehe auch
3739
3840- [[Howto Use TOpenDialog/de]]
3941- [[Dialogs tab]]
4042- [[Standard tab|TButton]]
4143- [[Standard tab|TMemo]]
4244
4345---
4446*From the Free Pascal wiki, page "Howto Use TSaveDialog/de", as it stood on 2020-02-17 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history