请教象素问题？

Question

DELPHI用IMAGE加载一图后，用鼠标点该图上任意一点，能得到该图象的象素坐标，比如能SHOWMESSAGE（x）showmessage(y)数值！多谢！高手指点详细点！

Answer 1

担心你不明白，就从我回过的历史贴子中找到下面这贴：
http://community.csdn.net/Expert/topic/5370/5370180.xml?temp=.6524774
（截止2007年5月5日此刻，没结；如果觉得回复不正确，也没有继续跟贴说明）楼主查一下自己的主题贴，看一下除这贴之外还有没有其他的未结贴子。

Answer 2

呵呵，算了吧，不计较了。http://community.csdn.net/Expert/topic/5512/5512298.xml?temp=.1323664
这贴上有。仍然可以认为我的答案不正确。问题总是在不断的描述中清楚起来的。

Answer 3

用Delphi写一个取色器10行代码都不用，建一个Form，Form上放一个Panel（为了直观的显示颜色），放一个Edit（为了显示颜色值），放一个Timer，Interval设成100，然后在Timer事件里写上下面几句代码即可：procedure TfrmMain.TimerTimer(Sender: TObject);
var
  Pos: TPoint;
  ScreenDC: HDC;
  ScreenColor: COLORREF;
begin
  GetCursorPos(Pos);                                   
  ScreenDC := GetDC(0);
  ScreenColor := GetPixel(ScreenDC, Pos.X, Pos.Y);
  ReleaseDC(0, ScreenDC);
  Panel1.Color := TColor(ScreenColor);
  edtColor.Text := Format('$%2.2x%2.2x%2.2x', [GetBValue(ScreenColor), GetGValue(ScreenColor), GetRValue(ScreenColor)]);
end;