如何得到鼠标下当前坐标点的颜色值

Question

当用鼠标移动时，能够时势显示出鼠标当前位置下的坐标点的颜色值，要用16进制显示（如FFFFFF），最好有例子。

Answer 1

p:TPoint;
GetCursorPos(@p);
GetPixel(p);

Answer 2

作鼠标移动好作
在form的onmousemove 添入下列代码就可以了form1.caption:='x:'+x+','+'y:'+y;要颜色值要根据canvas的属性canvas.pen.color
这个也要在onmousemove的事件里面作
设置好鼠标的cursor
你要急我可以给你做一个

Answer 3

onmousermove:
GetPixel(GetDC(0),x,y);

Answer 4

楼上的方法都只是在本窗体才有效吧。如果要全桌面有效的话，你把代码放在一个Timer中
再
var
  CurDC: HDC;
  CurPoint: TPoint;
  Color: TColor;
begin
  CurDC := GetDesktopWindow;
  GetCursorPos(CurPoint);
  Color := GetPixel(CurDC,x,y);
end;
在网吧随手写的，不知道有不有错，你试试吧。

Answer 5

procedure TForm1.Timer1Timer(Sender: TObject);
var
  CurDC: HDC;
  CurPoint: TPoint;
  Color: TColor;
begin
  CurDC := GetDesktopWindow;
  GetCursorPos(CurPoint);
  Color := GetPixel(curdc,CurPoint.x,CurPoint.y);
  text1.Color:=color;
end;
但text1的颜色却为黑色，晕倒,无论我将鼠标移动哪种颜色上