delphi 怎么把image上的图片粘贴到剪切板上

这个给你一个简单的代码，仅提供思路。 uses Clipbrd; //引用单元

procedure TForm1.Button1Click(Sender: TObject);

var Bmp: TBitmap;

begin

  Bmp := TBitmap.Create;

  Bmp.SetSize(Image1.Width, Image1.Height);

  Bmp.Assign(Image1.Picture.Graphic);

  Clipboard.Assign(Bmp); //放到剪贴板内

  Bmp.Free;

end;