青
青云
Unregistered / Unconfirmed
GUEST, unregistred user!
我现在想做一个软件,其中有这样一个功能,就是把屏幕上某一点的颜色值取出来。
我是这样尝试的:
首先得到鼠标位置: var ptMousePos:Tpoint;
procedure Tgetcol.Timer1Timer(Sender: TObject);
begin
GetCursorPos(ptMousePos);
edit1.text:=inttostr(ptMousePos.x)+inttostr(ptMousePos.y);
end;
下面我就不知道该如何做了,现在知道了鼠标的位置,但是如何知道该位置的颜色值呢。
恳请网上高手不吝赐教。
我是这样尝试的:
首先得到鼠标位置: var ptMousePos:Tpoint;
procedure Tgetcol.Timer1Timer(Sender: TObject);
begin
GetCursorPos(ptMousePos);
edit1.text:=inttostr(ptMousePos.x)+inttostr(ptMousePos.y);
end;
下面我就不知道该如何做了,现在知道了鼠标的位置,但是如何知道该位置的颜色值呢。
恳请网上高手不吝赐教。