Difference between revisions of "Howto Use TSaveDialog/ja"

From Free Pascal wiki
Jump to navigationJump to search
Line 26: Line 26:
 
4. 下記を参考にコーディングします。
 
4. 下記を参考にコーディングします。
  
<delphi>
 
 
  procedure TForm1.Button1Click( Sender: TObject );
 
  procedure TForm1.Button1Click( Sender: TObject );
 
  begin
 
  begin
Line 32: Line 31:
 
     Memo1.Lines.SaveToFile( SaveDialog1.Filename );
 
     Memo1.Lines.SaveToFile( SaveDialog1.Filename );
 
  end;
 
  end;
</delphi>
 
  
[[doc:lcl/dialogs/tcommondialog.execute.html | Execute]] メソッドにより、ファイルを保存するダイアログが表示されます。 ファイルが選ばれたときは[[True|true]]が返値となり、キャンセルしたときは[[False|false]]が返値となります。
+
[[doc:lcl/dialogs/tcommondialog.execute.html | Execute]] メソッドによりファイルを保存するダイアログが表示されます。 ファイルが選ばれたときは[[True|true]]が返値となり、キャンセルしたときは[[False|false]]が返値となります。
  
 
[[doc:lcl/dialogs/tfiledialog.filename.html | Filename]] プロパティは、ドライブ名とパスを含んだファイル名(ファイルへのフルパス) を返り値とします。
 
[[doc:lcl/dialogs/tfiledialog.filename.html | Filename]] プロパティは、ドライブ名とパスを含んだファイル名(ファイルへのフルパス) を返り値とします。

Revision as of 02:12, 23 May 2009

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つのドット(...)が表示されたさらに小さいboxが表れますので、クリックすると自動的に Source Editor のコーディングするべき場所にカーソルが移動します。

4. 下記を参考にコーディングします。

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

Execute メソッドによりファイルを保存するダイアログが表示されます。 ファイルが選ばれたときはtrueが返値となり、キャンセルしたときはfalseが返値となります。

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

See also