Delphi 基本控件之 SaveDialog控件

最新推荐文章于 2023-09-17 19:52:20 发布

byc6352

最新推荐文章于 2023-09-17 19:52:20 发布

阅读量1.5k

点赞数

分类专栏： delphi 文章标签： SaveDialog

本文链接：https://blog.csdn.net/byc6352/article/details/93777671

版权

delphi 专栏收录该内容

39 篇文章

订阅专栏

procedure TfMain.muOtherSaveClick(Sender: TObject);
begin
  save1.Filter:= 'BMP文件(*.bmp)|*.bmp';  //设置保存文件的扩展名
  save1.DefaultExt := '.bmp';              //为保存文件名自动添加扩展名
  save1.Title:='保存图片';
  save1.InitialDir:=extractfiledir(mFilename);
  if(save1.Execute())then begin
    mFilename:=save1.FileName;
    image1.Picture.SaveToFile(mFilename);
    stb1.Panels[1].Text:=extractfilename(mFilename);
    Clipboard.Assign(image1.Picture.Bitmap); //放到剪贴板内
    stb1.Panels[3].Text:='已保存到：'+extractfilename(mFilename);
  end;
end;