image.picture.bitmap.assign(bitmap:Tbitmap) OK?
解决方案 »
- 新人求教,delphi里有没省略函数参数的做法,象VB的Optional。
- 如何解决socket error #10048 address already in use的问题?在线等!
- 替公司招Delphi开发人员,公司工作地点:珠海
- 文件搜索函數:FindFirst的問題!
- speedbutton的enable为false时,原来的图片为什么不见了?
- 请问,如何用代码使TreeView中的某一个Node展开?
- 请问最小尺寸的Delphi程序怎么做?
- 整样设计月调节表数据库?
- 关于readbuffer的问题!
- 高手请进!如何使用TWebbrowser来保存网页里验证码的图片!仅只需获取证码的图片流!谢谢
- 在Pascal中,换行是否代表逻辑上的结束?
- 高分有请...
dc:HDC;
fullscreenCanvas:Tcanvas;
begin
dc:=Getdc(0);
fullscreenCanvas:=Tcanvas.Create;
fullscreenCanvas.Handle:=dc;
Fullscreen:=Tbitmap.Create;
Fullscreen.Canvas.CopyRect(rect(0,0,screen.Width,screen.Height),fullscreenCanvas,rect(0,0,screen.Width,screen.Height));
fullscreenCanvas.Free;
ReleaseDc(0,dc);
image1.Picture.Assign(Fullscreen);
image1.Refresh;
还是不行呀,你们看看吧
image1.Canvas.Handle:=Getdc(0);
end;