标签：btn jpg ocx send 使用 默认 属性 color code
首先向Form窗体拖一个SaveDialog控件
，Name属性改为：dlgSave，然后添加一个按钮，Caption属性改为：浏览，Name属性改为：btnBrowse。
然后双击浏览按钮添加如下代码：
procedure Tfoffertool.btnbrowseClick(Sender: TObject); var filePath :string; begin dlgSave.Title := ‘保存文件路径‘; //设置浏览对话框标题名 dlgSave.Filter:= ‘文本文件(*.dbf)|*.dbf‘; //设置保存文件的扩展名 dlgSave.DefaultExt := ‘.dbf‘; //为保存文件名自动添加扩展名 if dlgSave.Execute then begin filePath := Trim(dlgSave.FileName); //获取保存路径 ShowMessage(filePath); end end;
注：dlgSave.DefaultExt := ‘.dbf‘; 一行实现的是我们只填写文件名默认保存为扩展名为：.dbf；当然我们也可以自己给定。
如果想指定其他格式的文件：
打开文件：
dlgOpen.Filter = "(*.txt)|*.txt|(*.doc;*.docx;*.xls;*.xlsx)|*.doc;*.docx;*.xls;*.xlsx|(*.jpg;*.png;*.gif;*.bmp;*.jpeg)|*.jpg;*.png;*.gif;*.bmp;*.jpeg"t|(*.doc;*.docx;*.xls;*.xlsx)|*.doc;*.docx;*.xls;*.xlsx|(*.jpg;*.png;*.gif;*.bmp;*.jpeg)|*.jpg;*.png;*.gif;*.bmp;*.jpeg";
保存文件：
dlgSave->Filter = "(*.txt)|*.txt|(*.doc;*.docx;*.xls;*.xlsx)|*.doc;*.docx;*.xls;*.xlsx|(*.jpg;*.png;*.gif;*.bmp;*.jpeg)|*.jpg;*.png;*.gif;*.bmp;*.jpeg";
标签：btn jpg ocx send 使用 默认 属性 color code
原文地址：https://www.cnblogs.com/jijm123/p/10992953.html
