Howto Use TSaveDialog/ja: what changed

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

Title: Howto Use TSaveDialog/ja

New		Line
1	+	TSaveDialog の使い方
2	+
3	+	<figure>
4	+	<img src="tsavedialog.png" title="tsavedialog.png" />
5	+	<figcaption>tsavedialog.png</figcaption>
6	+	</figure>
7	+
8	+	簡単な説明:
9	+
10	+	1\. SaveDialogをFormに配置します。（アイコンは実行時には表示されませんので、Form上のどこにおいても大丈夫です。）
11	+
12	+	` `![`Component_Palette_Dialogs.png`](/wiki-images/7/72/Component_Palette_Dialogs.png)\
13	+	` (SaveDialogは「Dialog」タブの左から2番目)`
14	+
15	+	2\. memoをformに配置します。
16	+
17	+	<figure>
18	+	<img src="tmemo.png" title="tmemo.png" />
19	+	<figcaption>tmemo.png</figcaption>
20	+	</figure>
21	+
22	+	3\. buttonをformに配置します。
23	+
24	+	<figure>
25	+	<img src="tbutton.png" title="tbutton.png" />
26	+	<figcaption>tbutton.png</figcaption>
27	+	</figure>
28	+
29	+	オブジェクトインスペクタに Button1のプロパティが表示されるので, 'Caption'を'Save'に変更します。オブジェクトインスペクタのイベントタブをクリックし、OnClick の右側のボックスをクリックしてください。 3つのドット(...)が表示されたさらに小さいboxが表れますので、クリックすると自動的にソースエディタのコーディングするべき場所にカーソルが移動します。
30	+
31	+	４. 下記を参考にコーディングします。
32	+
33	+	``` pascal
34	+	procedure TForm1.Button1Click( Sender: TObject );
35	+	begin
36	+	if SaveDialog1.Execute then
37	+	Memo1.Lines.SaveToFile( SaveDialog1.Filename );
38	+	end;
39	+	```
40	+
41	+	[[doc:lcl/dialogs/tcommondialog.execute.html\|Execute]] メソッドによりファイルを保存するダイアログが表示されます。ファイルが選ばれたときは[[True\|trueが]]返値となり、キャンセルしたときは[[False\|falseが]]返値となります。
42	+
43	+	[[doc:lcl/dialogs/tfiledialog.filename.html\|Filename]] プロパティは、ドライブ名とパスを含んだファイル名（ファイルへのフルパス）を返り値とします。
44	+
45	+	## 関連項目
46	+
47	+	- [[Howto Use TOpenDialog/ja\|TOpenDialog の使い方]]
48	+	- [[Dialogs tab\|Dialog タブ]]
49	+	- [[Standard tab\|TButton]]
50	+	- [[Standard tab\|TMemo]]
51	+
52	+	---
53	+	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