TSaveDialog
预览
![3094061.png](462adcec-ff21-45df-a641-92c0dbb059f1_files/3094061.png)
实现过程
动态创建和使用保存文件对话框
procedure TForm1.Button1Click(Sender: TObject);
begin
with TSaveDialog.Create(nil) do
begin
Filter:='Text files (*.txt)|*.txt)|All Files(*.*)|*.*';
if Execute then
Memo1.Lines.LoadFromFile(Filename);
end;
end;
//保存图片的对话框
procedure TForm2.Button1Click(Sender: TObject);
begin
with TSaveDialog.Create(nil) do
begin
Filter:='JPEG file(*.jpg;*.jpeg)|*.jpg;*.jpeg|PNG file(*.png)|*.png|Bitmap file(*.bmp)|*.bmp|All Files(*.*)|*.*';
if Execute then
Image1.Picture.SaveToFile(Filename)
end;
end;
备注
所有的对话框都可以使用此方法来制作
Filter:='Text files (*.txt;*.ini;*.log)|*.txt;*.ini;*.log)|
All Files(*.*)|*.*';
设置好Filer Editor会自动产生代码
![010937091656911.png](https://i-blog.csdnimg.cn/blog_migrate/a82a234065a849921779a1239118c0ae.png)
链接
附件列表