Howto Use TSaveDialog/ja

From Free Pascal wiki
Revision as of 01:54, 23 May 2009 by Miyatakejiro (talk | contribs)
Jump to navigationJump to search

Deutsch (de) English (en) español (es) suomi (fi) français (fr) 日本語 (ja) polski (pl) русский (ru) slovenčina (sk)

日本語版メニュー
メインページ - Lazarus Documentation日本語版 - 翻訳ノート - 日本語障害情報

tsavedialog.png

シンプルなガイドライン:

1. SaveDialogのウィジェットをFormに配置する(不可視のウィジェットであり、Form上の位置はどこでもよい).

 Component Palette Dialogs.png
 (SaveDialogは「Dialog」タブの中の左から2番目にある。)


2. memoをformに配置する.

tmemo.png


3. buttonをformに配置する.

tbutton.png

Object Inspector に Button1のプロパティが表示されるので, 'Caption'を'Save'に変更する. Object Inspectorのイベントタブをクリックし, OnClick の右側のボックスをクリックする.: 3つのドット(... ellipsis)が表示されたさらに小さいboxが表れるので, クリックすると,自動的に Source Editor のコーディングするべき場所にカーソルが移動する. Completion code:

2. 下記を参考にコーディングする。

<delphi>

procedure TForm1.Button1Click( Sender: TObject );
begin
  if SaveDialog1.Execute then
   Memo1.Lines.SaveToFile( SaveDialog1.Filename );
end;

</delphi>

Execute メソッドによりfile save dialogが表示される. ファイルが選ばれたときはtrueが返値となり, 中止したときはfalseが返値となる.

Filename プロパティは,ドライブ名とパスを含んだファイル名(ファイルへのフルパス) を返り値とする.

See also