Delphi 基本控件之 SaveDialog控件

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;