Difference between revisions of "TSaveDialog/zh CN"
From Free Pascal wiki
Jump to navigationJump to searchTyphonFinger (talk | contribs) (Created page with "{{TSaveDialog}} '''TSaveDialog''' Image:tsavedialog.png 是保存文件的对话框. 控件在 Dialogs tab 的 Component Palette. 此控件为不可见控件,...") |
TyphonFinger (talk | contribs) |
||
Line 4: | Line 4: | ||
此控件为不可见控件,拖放到 [[TForm|form]] 窗体,然后使用方法 <tt>.Execute()</tt> 调用. | 此控件为不可见控件,拖放到 [[TForm|form]] 窗体,然后使用方法 <tt>.Execute()</tt> 调用. | ||
+ | |||
+ | <syntaxhighlight lang=pascal> | ||
+ | procedure TForm1.Button1Click(Sender: TObject); | ||
+ | var | ||
+ | myfPath: string; | ||
+ | begin | ||
+ | try | ||
+ | try | ||
+ | SaveDialog1.Execute; | ||
+ | myfPath := SaveDialog1.FileName; | ||
+ | Memo1.Lines.SaveToFile(myfPath); | ||
+ | Exit; | ||
+ | except | ||
+ | ShowMessage('程序异常,请重新保存'); | ||
+ | end; | ||
+ | finally | ||
+ | //无论如何都会执行 | ||
+ | ShowMessage('me'); | ||
+ | end; | ||
+ | |||
+ | end; | ||
+ | </syntaxhighlight> | ||
+ | |||
+ | |||
== 参考资料 == | == 参考资料 == |
Latest revision as of 05:53, 1 May 2020
│
English (en) │
français (fr) │
русский (ru) │
中文(中国大陆) (zh_CN) │
TSaveDialog 是保存文件的对话框. 控件在 Dialogs tab 的 Component Palette.
此控件为不可见控件,拖放到 form 窗体,然后使用方法 .Execute() 调用.
procedure TForm1.Button1Click(Sender: TObject);
var
myfPath: string;
begin
try
try
SaveDialog1.Execute;
myfPath := SaveDialog1.FileName;
Memo1.Lines.SaveToFile(myfPath);
Exit;
except
ShowMessage('程序异常,请重新保存');
end;
finally
//无论如何都会执行
ShowMessage('me');
end;
end;
参考资料