保存图片

 

 

保存Image1图片

 

 

 

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;

 

 

 

复制Image1到剪切板上

uses Vcl.Clipbrd;

 

Clipboard.Assign(Image1.Picture);

 

 

将剪贴板上的图片复制到Image上面

 

来自为知笔记(Wiz)