怎么问TImage中的图像复制到剪帖板???

如需要指定复制图象的一部分又该如何做  
  用哪些属性与方法，谢谢了!!! 问题点数：50、回复次数：3Top

1 楼linzhengqun（风。我回来了）回复于 2004-08-01 15:21:39 得分 50

//复制  
  //其Op，Mp，分别代表你选择区域的左上角和右下角  
  procedure   TFrmDraw.EditCopyClick(Sender:   TObject);  
  var   tBmp:TBitmap;  
  begin  
        tBmp:=TBitmap.Create;  
        try  
            tBmp.Width:=mp.x-op.X;   tBmp.Height:=mp.Y-op.Y;  
            tBmp.Canvas.CopyRect(Rect(0,0,mp.X-op.X,mp.Y-op.Y),IMage1.Canvas,  
                                                        Rect(op,mp));  
            ClipBoard.Assign(tBmp);  
        finally  
            FreeAndNil(tBmp);  
        end;  
  end;Top

2 楼linzhengqun（风。我回来了）回复于 2004-08-01 15:27:01 得分 0

还有上在的ClipBoard是一个类，  
  要加上引用单元：Clipbrd  
   
  然后定义：  
  在窗体类中：  
  ClipBoard:TClipBoard  
   
  在窗体的Create事件创建这个剪贴板类：  
  ClipBoard:=TClipBoard.Create;  
  并在窗体的Close事件释放他：  
  ClipBoard.Free;Top

3 楼archilangelo（阿基朗基罗）回复于 2004-08-01 16:58:55 得分 0

谢谢   linzhengqun   (50)Top

相关问题

• tbmp
• 复制
• 窗体
• clipboard
• op
• mp
• create

• 帖主：archilangelo
• linzhengqun

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载