程序中的对话框应用- ”另存为“对话框

Posted 2021-02-21 fansizhe

另存为对话框TSaveDialog类封装了Windows的”另存为“对话框，允许用户将一个文件保存到磁盘上。

TSaveDialog类是从TopenDialog类派生而来的，因此对于TOpenDialog类的所有属性、事件、方法同样都适用。

1、为保存的文件指定默认扩展名

DefaultExt属性用于标识默认的文件扩展名，当调用“另存为”对话框时，可以将文件格式保存为默认格式的扩展名，例如将备注内容另存为默认格式的扩展名。

procedure TForm1.Button1Click(Sender: TObject);
begin
  if(SaveDialog1.Execute)and(SaveDialog1.FileName<>‘‘)then
  begin
  memo1.Lines.SaveToFile(SaveDialog1.FileName);//另存为备注内容
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SaveDialog1.DefaultExt:= ‘txt‘;//窗体创建时，设置“另存为”对话框的默认扩展名
end;

 

2、设置保存文件类型列表，与TOpenDialog设置过滤文件类型一样使用Filter属性。或者手动赋值。

 

3、保存时文件名称相同弹出的提示框

在操作系统上保存文件时，若文件名称相同，就会弹出提示是否替换该文件对话框，只要设置Options属性中的OfOverwritePrompt属性。

可以手动设置OfOverwritePrompt值为True，或者变成设置，

SaveDialog1.Options:= SaveDialog1.Options+[ofOverwritePrompt];//保存时同名文件提示