用Delphi获取任意一点颜色值

　　 大家或许都曾遇到过这样的情况：发现一幅图片或者某个图标上有一种你很喜欢的颜色，但你却无法用其它软件得到该颜色的RGB颜色值。其实如果你懂得一点Delphi的编程知识，要实现这一功能很简单。
　　在Delphi中调用WMEraseBkng()结合canvas对象中的“点”操作——pixels[x,y]，便可以轻松得到屏幕上点坐标的颜色值，其具体原理是这样的：
　　1、将屏幕作为窗体（Form）的画布属性，即定义函数：
　　procedure WMEraseBkng(var MSg:TWMEraseBkgnd);message WM_ERASEBKGND;
　　在函数体中加入“Msg.Result:=1”便可实现此功能；
　　2、获取任一点的颜色值。在Delphi4.0中画布（Tcanvas）既是对象的属性，同时画布也是一个对象，画布可依附在其它对象中，画布Tcanvas只有在其它对象运行时才可用。由于已将屏幕抓取为窗体的画布，所以通过窗体画布的pixels属性便可准确获取相应点的颜色值。
　　由以上原理，我们可以编一个提取窗体任一点颜色代码的小程序（如图1），在Delphi中新建两个窗体，其中一个窗体（scrback）用来做屏幕画布，此窗体无需添加任何对象；另一个窗体（mainfrm）用来显示颜色和坐标信息，其中Label1用来显示当前颜色，Label2用来显示点击点颜色的十六进制RGB组合颜色值，mouseX、mouseY用来显示指针在屏幕上的坐标值，red、green、blue用来显示相应红、绿、蓝三分量的十进制