关于Delphi中TopenDialog和TsaveDialog控件的几个问题

来源：百度知道 编辑：UC知道 时间：2024/06/21 23:22:51
想知道TopenDialog如何限定打开默认目录是 本程序所在的文件夹；

TsaveDialog如何使保存文件的时候，无论输不输入后缀都会自动添加后缀。比如我限定filter是“文本文件|*.txt”，保存的时候输入name.txt和name都能保存成为name.txt；

同样，TsaveDialog如何设定为保存的默认路径是当前程序所在的文件夹。

默认目录是当前程序所在目录应设置属性InitialDir如：
opendialog1.InitialDir := extractfilepath(application.ExeName);
savedialog1.InitialDir := extractfilepath(application.ExeName);

自动加扩展名的方法如下：
接口部分
uses
strutils;

procedure TForm1.Button3Click(Sender: TObject);
var
ExtName:string;
begin
if savedialog1.Execute then
begin
ExtName := savedialog1.FileName;
if RightStr(ExtName,4)<> RightStr(savedialog1.Filter,4) then
ExtName:= ExtName+ RightStr(Savedialog1.Filter,4);
showmessage(ExtName);
end;
end;

设置SaveDialog的DefaultExt属性为你要的后缀就行了