屏幕区域截取图片的实现
现在有很多程序可能都要用到屏幕区域截取图片的功能，一开始我也不知道如何实现，其实，这个功能的原理很简单，就是选择屏幕的某个区域，然后利用将选择的区域拷贝下来就完事了，但问题是我们如何取得那个选择区域，这就成了解决该问题的关键，在普通的应用程序中我们很好实现区域的选择，因为大多数的组件都含有MouseDown,MouseMove,MouseUp事件，我们只要在这三个事件中就可将这事情搞定，可我们截取的图像往往是屏幕的某个区域，我们的鼠标只要一点该程序以外的窗口，该程序窗口马上就失去焦点，这样我们如何才能实现区域的选择，这个问题如何解决呢？乍一看，这个问题有点难哦，你说的对啊，我们如何在程序窗口外获得选择区域，但解决该问题的答案可能会简单的吓你一跳，既然不能在程序窗口外获得选择区域，那我们可以在我们的程序窗口内啊，废话，还用你说，要是在程序窗口内那还需要你在这儿说，我早就解决了，可是有很多时候解决问题的关键往往是很简单的，只是你没有想到或者不相信这么简单而以至于忽略了，答案就是在程序的窗口内，因为只有在程序的窗口内我们才能很容易的完成区域的选择与拷贝，只是在窗体显示前将屏幕拷贝下来放与你的程序之中，然后再将你的程序窗口最大化，以后的操作就和平时的操作一样了，在图形组件的MouseDown,MouseMove,MouseUp事件中即可完成区域的拷贝，但我这儿还想要提醒大家的就是如何完成区域选择的虚线框，这个可以让用户知道他(她)说选择区域的大小，最初我也遇到这个问题，开始我的程序虽然完成了区域的拷贝，但它没有显示给用户一个虚线框，而让用户大为不爽，后来无意之中我发现了画布Canvas组件的DrawFocusRect(const TRect &Rect)方法能够帮助我解决这个问题，它的原型如下：
void __fastcall DrawFocusRect(const TRect &Rect);
该方法的功能是聚焦一个举行区域，当第二次调用该方法时，如果参数Rect仍为第一次的矩形区域，则它又会删除这块举行区域，所以只要我们在MouseMove事件中先删除上一次的矩形区域，在调用该方法即可完成虚线框的绘制。代码如下：
void __fastcall TForm2::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
TRect Rect;
if(Drawing)
{
Rect=getRect(originPt,movePt);
Image1->Canvas->DrawFocusRect(Rect);
Rect=getRect(originPt,Point(X,Y));
Image1->Canvas->DrawFocusRect(Rect);
}
movePt=Point(X,Y);
}
其中getRect()为自定义函数，它的功能是根据originPt,movePt两点生成一个矩形区域，我之所以定义这个函数是因为我的这个程序经常要用到矩形区域，所以为了程序的简单性而已。
它的代码如下：
TRect __fastcall TForm2::getRect(TPoint First,TPoint Second)
{
//TODO: Add your source code here
TRect r;
if(originPt.x<=Second.x&&originPt.y<=Second.y) //由左上角向右下角拉
{
r.Left=originPt.x;
r.Top=originPt.y;
r.Right=Second.x;
r.Bottom=Second.y;
}
if(originPt.x<=Second.x&&originPt.y>=Second.y) //由左下角向右上角拉
{
r.Left=originPt.x;
r.Top=Second.y;
r.Right=Second.x;
r.Bottom=originPt.y;
}
if(originPt.x>=Second.x&&originPt.y<=Second.y) //由右上角向左下角拉
{
r.Left=Second.x;
r.Top=originPt.y;
r.Right=originPt.x;
r.Bottom=Second.y;
}
if(originPt.x>=Second.x&&originPt.y>=Second.y) //由右下角向左上角拉
{
r.Left=Second.x;
r.Top=Second.y;
r.Right=originPt.x;
r.Bottom=originPt.y;
}
return r;
}
文章只要一加上程序代码的话字数马上就会成倍上升，如果要是去投稿的话岂不发了，当然这只是说说而已，何况要是真的投稿的话，还是要好好整理的，好了，话不多说(其实我已经说了这么多)，还是让我来介绍一下这个程序的主要流程吧！
要实现屏幕区域的截取，主要又以下步骤：
1、 将程序窗口的WindowState属性设置为wsMaximized，使窗口最大化，占据屏幕整个区域
2、 在Form窗体的OnActivate事件中完成整个屏幕区域的拷贝，此时程序窗口还没有出现，趁机将拷贝下来的图像复制到Timage控件的Image1上面(我是通过grapScreen()函数完成屏幕区域拷贝的，这是一个自定义函数,代码后面介绍)
3、 利用Image1的OnMouseMove事件追踪鼠标坐标，将其记录到movePt结构中，同时在该事件中完成用户虚线框的选择(利用Canvas的DrawFocusRect()方法)
4、 Image1的OnMouseDown和OnMouseUp分别完成进入图像区域选择状态和图像区域的拷贝。
5、 最后，但用户按下Esc键或者按下鼠标右键中的退出按钮退出程序，其中可以点击右键在其弹出式菜单中完成图像的保存功能！
程序正在进行截取图像的情形
知道了截取图像的原理后，你也可以根据以上的步骤来完成一个类似的程序。下面就是我的范例程序，当然我还是只列关键的代码，如果你对该程序又兴趣，可以到http://www.zccfamily.com/zqget/ 网站去下载此范例程序，该网站还有其它的东西，可能会对你有帮助，你也可以下载回去试一下。
根据上面的步骤，我的代码如下：
第一步：在属性编辑器中将窗体Form的WindowState属性设置为wsMaximized,并且将Image1的Align属性设置为alClient
第二步：拷贝屏幕区域
void __fastcall TForm2::FormActivate(TObject *Sender)
{
Image1->Picture->Bitmap->Handle=grapScreen();
}
grapScreen()函数的定义如下：
HDC __fastcall TForm2::grapScreen()
{
//TODO: Add your source code here
//窗口必须是全屏即WindowState的值为wsMaximized,这样才能保证ClienHeight,ClientWidth为整个屏幕的高和宽
HDC sourceDC=(HDC)CreateDC("DISPLAY","","",NULL);
HDC destDC=(HDC)CreateCompatibleDC(sourceDC);
HDC bHandle=(HDC)CreateCompatibleBitmap(sourceDC,ClientWidth,ClientHeight);
SelectObject(destDC,bHandle);
BitBlt(destDC,0,0,ClientWidth,ClientHeight,sourceDC,0,0,SRCCOPY);
DeleteDC(destDC);
ReleaseDC(bHandle,sourceDC);
return bHandle;
}
其中调用了一些WinAPI函数来完成屏幕的拷贝，关于这些API函数的用法可以参考MSDN。
第三步：代码我已经在前面列出来了。
第四步：
OnMouseDown事件：
void __fastcall TForm2::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button==mbRight)
{
return; //如果用户按下鼠标右键则返回并弹出弹出式菜单供用户选择菜单命令
}
Drawing=true;
originPt=Point(X,Y);
movePt=Point(X,Y);
if (Selected)
{
Image1->Canvas->DrawFocusRect(selectRect);
}
}
这段代码主要是标记进入画面截取的状态和记录鼠标的起点位置，如果当用户点了鼠标右键则要弹出弹出式菜单，这需要在属性编辑器中将Image1的PopupMenu属性设置为你弹出式菜单的名称，当然你也可以利用代码来完成。
if (Button==mbRight)
{
PopupMenu1->Popup(X,Y);
return;
}
OnMouseUp事件：
void __fastcall TForm2::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
if(Drawing)
{
selectRect=getRect(originPt,movePt);
getSelectImage(selectRect);
Selected=true;
Drawing=false;
}
}
其中getSelectImage(selectRect)也为自定义函数，它的功能是将selectRect矩形区域的图像拷贝到selectImage用来保存截取下来的图像的变量中，即selectImage就是我们所截取的图像。
代码如下：
void __fastcall TForm2::getSelectImage(TRect ARect)
{
//TODO: Add your source code here
TRect r;
selectImage->Width=(ARect.Width());
selectImage->Height=(ARect.Height());
r=Rect(0,0,selectImage->Width,selectImage->Height);
selectImage->Canvas->CopyRect(r,Image1->Canvas,ARect);
}
根据上面的步骤，我已经列举了该程序的关键代码，剩下的只是一些变量的定义了，我想读者拿到源程序后应该能够看懂，我就不在这儿一一列举了。
