TSaveDialog/zh CN: Difference between revisions
From Free Pascal wiki
Jump to navigationJump to search
TyphonFinger (talk | contribs) (Created page with "{{TSaveDialog}} '''TSaveDialog''' Image:tsavedialog.png 是保存文件的对话框. 控件在 Dialogs tab 的 Component Palette. 此控件为不可见控件,...") |
TyphonFinger (talk | contribs) No edit summary |
||
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;
参考资料