想用DELPHI 实现任意的图象剪切粘贴功能,如何实现
有源码最好!
有源码最好!
解决方案 »
- 关于记录数组,为什么我的LISTBOX得不到结果?
- 提问:请教如何使ListView中listitem的图标和caption并列显示?
- 怎么完成这种功能?
- 采用Delphi6.0开发程序,链接Oralce8i及以上版本时,不打算在客户端作Oralce网络助手配置(既:配置数据库链接),请问各位大侠采用Delph
- 各位帮忙了!!!怎么把第三方控件加到我的应用程序中
- Form的移動問題 等。
- 怎样把ACCESS数据库连入DELPHI?
- action的一点小问题
- 请问哪里有delphi5的补丁下载?
- 有没有这样一个函数
- DLL文件的问题?急等!!!
- 请问在什么地方可以找到 打印条码 的字体 这种字体名称是什么??谢谢
Image : TImage;
BitMap : TBitmap;
Begin
Image:=TImage.Create(Self);
BitMap:=TBitMap.Create;
BitMap.Width:=ClientWidth;
BitMap.Height:=ClientHeight;
BitBlt(BitMap.Canvas.Handle, 0, 0, ClientWidth, ClientHeight, GetDC(Handle),
0, 0, SRCCOPY);
Image.Picture.Graphic:=BitMap;
Clipboard.Assign(Image.Picture);
BitMap.Free;
Image.Free
End;