zoukankan      html  css  js  c++  java
  • Delphi中基本控件之SaveDialog控件的使用总结

    首先向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";
  • 相关阅读:
    双写一致性的讨论
    webstorm设置新建vue文件的模板
    java基础类及方法
    中国大学零基础学Java语言练习题
    java基础继承
    java基础接口、继承、多态
    Windows、Mac 命令行启动程序(为了查看Electron打包后主进程日志)
    【Typescirpt】定义数字范围类型
    MRP
    Raid 学习
  • 原文地址:https://www.cnblogs.com/jijm123/p/10992953.html
Copyright © 2011-2022 走看看