怎样将粘贴板的图导入TBitmap中？
怎样将粘贴板的图导入TBitmap中？ 问题点数：0、回复次数：3Top
1 楼outer2000（天外流星）回复于 2003-06-01 06:51:24 得分 0
The following VCL code shows how to paste a picture from the clipboard into an image control in response to a click on an Edit|Paste menu item:
procedure TForm1.PasteButtonClick(Sender: TObject);
var
Bitmap: TBitmap;
begin
if Clipboard.HasFormat(CF_BITMAP) then { is there a bitmap on the Windows clipboard? )
begin
Image1.Picture.Bitmap.Assign(Clipboard);
end;
end;Top
2 楼outer2000（天外流星）回复于 2003-06-01 06:51:43 得分 0
from delphi helpTop
3 楼duke7y（Duke）回复于 2003-06-01 15:59:44 得分 0
谢了Top
