如何将指定位置上的点的颜色转化为16进制的格式。(50分)

我将鼠标指定到某一程序的窗体上（指定某一点），如何判断此点的颜色为什么颜色（如用十六进制 FFFFFF 的方式显示）。

首先<br>&nbsp; C:TColor;<br>&nbsp; str:string;<br>&nbsp; C:=Canvas.Pixels[X,Y];<br>&nbsp; str:=Format('%x',[C]);<br>&nbsp; 搞定了!

WindowFromPoint<br>getdc<br>BitBlt<br>+ NeutronDelphi 的<br><br>

为何我移动鼠标到不同的颜色时，有时显示的数字变动，有时就不变(好像只能显示为黑色和本色，不能显示为其它颜色）。我要实现在鼠标移动时随时跟踪鼠标当前点的颜色的变化值，不知该如何实现？<br><br>&nbsp;以下是我的代码，不知问题出在那里。<br><br>procedure TForm1.Timer4Timer(Sender: TObject);<br>&nbsp;var<br>&nbsp; p:tpoint;<br>&nbsp; C:TColor;<br>&nbsp; str:string;<br><br>begin<br>&nbsp;getcursorpos(p); //得到鼠标的位置<br>&nbsp;label3.Caption:=inttostr(p.X);<br>&nbsp;label4.Caption:=inttostr(p.Y);<br>&nbsp;C:=Canvas.Pixels[p.X,p.y];<br>&nbsp;str:=Format('%x',[C]);<br><br>&nbsp;lab_ys.Caption:=str;<br><br>end;<br>