• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

delphiTSaveDialog

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
TSaveDialog
预览
        

实现过程

 

 

动态创建和使用保存文件对话框
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会自动产生代码
链接
    
 
 




附件列表

     

    鲜花
    握手
    雷人
    路过
    鸡蛋
    该文章已有0人参与评论

    请发表评论

    全部评论

    专题导读
    More+
    上一篇：
    Delphi下的通配符查找函数发布时间：2022-07-18
    下一篇：
    10进制与16进制之间的转换delphi发布时间：2022-07-18
    热门推荐
    More+
    热门话题
    More+
    阅读排行榜

    扫描微信二维码

    查看手机版网站

    随时了解更新最新资讯

    139-2527-9053

    在线客服（服务时间 9:00～18:00）

    在线QQ客服
    地址：深圳市南山区西丽大学城创智工业园
    电邮：jeky_zhao#qq.com
    移动电话：139-2527-9053

    Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap