保存图片

 

 

保存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)