如题。

解决方案 »

  1.   

    uses Clipbrd;procedure TForm1.Button1Click(Sender: TObject);
    var Bitmap:TBitmap;
    begin
      if Clipboard.HasFormat(CF_BITMAP) then
        begin
          Bitmap:=TBitmap.Create;
          Bitmap.Assign(Clipboard);
          Image1.Canvas.Draw(0,0,Bitmap);
          FreeAndNil(Bitmap);
        end;
    end;
      

  2.   

    谢谢cuteant兄的例子,但这只能用于复制一个图片的情况,当我在一个网页上选中两个图片,复制,再用您这方法就无效,有办法吗?我搜索了半天,这个实现起来是不是较困难?
      

  3.   

    谢谢
    应该是有办法的吧,比如用WORD粘贴就可以取出那两个图,真不知道这是用什么方法实现的