用 DELPHI 获取任意一点颜色值.docVIP

用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用来显示相应红、绿、蓝三分量的十进制数值;创建一个Tbutton1用来退出程序。　　以下是画布窗口完整代码(scrback.pas):　　unit?scrback;　　interface　　uses　　SysUtils,?WinTypes,?WinProcs,?Messages,?Classes,?Graphics,?Controls,?Forms,?Dialogs,?StdCtrls,?ExtCtrls,?Buttons;　　type　　Tscrcolor?=?class(TForm)　　procedure?FormClick(Sender:?TObject);　　procedure?FormMouseMove(Sender:?TObject;?Shift:?TShiftState;?X,?Y:?Integer);　　procedure?FormResize(Sender:?TObject);　　private　　scrx,scry?:?integer;　　{获取当前坐标}　　temp?:?tcolor;　　procedure?WMEraseBkng(var?MSg:TWMEraseBkgnd);　　message?WM_ERASEBKGND;　　public　　{?Public?declarations?}　　end;　　var　　scrcolor:?Tscrcolor;　　implementation　　uses?mainfrm;　　{由于TLabel均在另一个窗体中,因此必须用“uses”进行声明}　　{＄R?＊.DFM}　　const　　Digits?:?array[0..＄F]?of?Char?=?0123456789ABCDEF;　　{由于获取颜色值不是十六进制数,因此需用数组存储十六进制字符}　　procedure?Tscrcolor.WMEraseBkng(var?MSg:TWMEraseBkgnd);　　begin　　Msg.Result:=1;　　end;　　{用函数实现将屏幕画面载入窗体}　　procedure?Tscrcolor.FormMouseMove(Sender:?TObject;?Shift:?TShiftState;?X,　　Y:?Integer);　　begin　　scrx?:=?x;　　scry?:=?y;　　temp?:=?canvas.pixels[scrx,scry];　　{获取相应点颜色值}　　form1.label2.COLOR?:=?temp;　　{将Label2的颜色设置为鼠标所在点的颜色}　　form1.mouseX.Caption?:=?inttostr(x);　　form1.mouseY.Caption?:=?inttostr(y);　　{显示当前坐标}　　end;　　procedure?Tscrcolor.FormClick(Sender:?TObject);　　var　　rr,gg,bb?:?byte;　　begin　　?rr?:=?getRva