画布方式

在网址：http://hi.baidu.com/nianxiaoyou/blog/item/41b7b7ed22e61c4a78f055b7.html

里有＂ 

Borland公司的设计人员用画布（Tcanvas）对象封装了Windows的大部分图形输出功能，可以通过它以更直观的方式和Windows的屏幕打交道，而不必关心令人头疼的 Windows API函数。＂

表明了有两种方式？

 

首先定义三个变量：分别代表位图，画布，屏幕句柄

var
Fullscreen：Tbitmap；
FullscreenCanvas：TCanvas；
dc：HDC；

第一步，为第一个变量赋值

Fullscreen：=TBitmap.Create；
Fullscreen.Width：=screen.width；
Fullscreen.Height：=screen.Height；

第二步，为第二个变量赋值

DC：=GetDC(0)； //取得屏幕的DC，参数0指的是屏幕

第三步，为第三个变量赋值

FullscreenCanvas：=TCanvas.Create；
FullscreenCanvas.Handle：=DC；            //画布与屏幕关联

 

 

//注意红色部分,下句执行的最终结果是：位图变量被赋了值

Fullscreen.Canvas.CopyRect(Rect(0，0，screen.Width，screen.Height)，fullscreenCanvas，Rect(0，0，Screen.Width，Screen.Height))；

 

//这两个变量光荣的完成使命，自我销毁！

FullscreenCanvas.Free；
ReleaseDC(0，DC)； //释放DC

 

 

//将最终的结果，放在image里显示出来

//*******************************
image1.picture.Bitmap：=fullscreen； //拷贝下的图象赋给IMAGE对象
image1.Width：=fullscreen.Width；
image1.Height：=fullscreen.Height；
fullscreen.free； //释放bitmap
form1.WindowState：=wsNormal； //复原窗口状态
form1.show； //显示窗口
messagebeep(1)； //BEEP叫一声，报告图象已经截取好了。