Sign in Join
Wiki copytemporary

Howto Use TSaveDialog/ja: what changed

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

OldNewLine
11TSaveDialog の使い方
22
3-<figure>
4-<img src="tsavedialog.png" title="tsavedialog.png" />
5-<figcaption>tsavedialog.png</figcaption>
6-</figure>
3+![](/wiki-images/e/e1/Tsavedialog.png)
74
85簡単な説明:
96
1071\. SaveDialogをFormに配置します。(アイコンは実行時には表示されませんので、Form上のどこにおいても大丈夫です。)
118
129` `![`Component_Palette_Dialogs.png`](/wiki-images/7/72/Component_Palette_Dialogs.png)\
1310` (SaveDialogは「Dialog」タブの左から2番目)`
1411
15122\. memoをformに配置します。
1613
17-<figure>
18-<img src="tmemo.png" title="tmemo.png" />
19-<figcaption>tmemo.png</figcaption>
20-</figure>
14+![](/wiki-images/1/1b/Tmemo.png)
2115
22163\. buttonをformに配置します。
2317
24-<figure>
25-<img src="tbutton.png" title="tbutton.png" />
26-<figcaption>tbutton.png</figcaption>
27-</figure>
18+![](/wiki-images/b/b2/Tbutton.png)
2819
2920オブジェクトインスペクタに Button1のプロパティが表示されるので, 'Caption'を'Save'に変更します。 オブジェクトインスペクタのイベントタブをクリックし、OnClick の右側のボックスをクリックしてください。 3つのドット(...)が表示されたさらに小さいboxが表れますので、クリックすると自動的にソースエディタのコーディングするべき場所にカーソルが移動します。
3021
31224. 下記を参考にコーディングします。
3223
3324``` pascal
3425 procedure TForm1.Button1Click( Sender: TObject );
3526 begin
3627 if SaveDialog1.Execute then
3728 Memo1.Lines.SaveToFile( SaveDialog1.Filename );
3829 end;
3930```
4031
4132[[doc:lcl/dialogs/tcommondialog.execute.html|Execute]] メソッドによりファイルを保存するダイアログが表示されます。 ファイルが選ばれたときは[[True|trueが]]返値となり、キャンセルしたときは[[False|falseが]]返値となります。
4233
4334[[doc:lcl/dialogs/tfiledialog.filename.html|Filename]] プロパティは、ドライブ名とパスを含んだファイル名(ファイルへのフルパス) を返り値とします。
4435
4536## 関連項目
4637
4738- [[Howto Use TOpenDialog/ja|TOpenDialog の使い方]]
4839- [[Dialogs tab|Dialog タブ]]
4940- [[Standard tab|TButton]]
5041- [[Standard tab|TMemo]]
5142
5243---
5344*From the Free Pascal wiki, page "Howto Use TSaveDialog/ja", 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