我帮你做!
用VCL的TClipbord类,它封装了Windows的剪贴板。
在uses中加入Clipbrd单元
你的菜单下剪贴板的三个功能:
1、copy功能
使用TClipbord对象的Assign方法,把Picture赋给剪贴板。
procedure Tform1.copy1Click(sender:ToBject);
begin
Clipbord.Assign(bitmap1);
//bitmap1位图
end;
2、Cut功能
procedure Tform1.Cut1Click(sender:ToBject);
var
ARect:TRect;
begin
Copy1Click(sender);//赋给剪贴板。
with Image.canvasdo
begin
CopyMod:=cmwhiteness;
//白色
ARect:=Rect(0,0.Image.width,Image.Height);
//获得一个长方形
CopyRect(ARect,Image.Canvas,ARect);
copyMode:=cmSrcCopy;
end;
end;
3、paste功能
Procedure TForm1.PasteClick(Sender:TObject);
var
Bitmap:Tbitmap;
begin
if Clipboard.HasFormat(CF_BITMAP) then
//windows点位图
begin
Imapg.Picture.BitMap.Assign(Clipboard);
end;
end;