本文整理自网络，侵删。
procedure TForm1.Timer1Timer(Sender: TObject);
var
handle,hchild1,hchild2:THandle;
ahwnd:hwnd;
point:TPoint;
temp:array[0..255] of char;
rec:Trect;
RGB:integer;
DC :integer;
begin
//取得当前鼠标的位置
GetCursorPos(point);
//取得当前鼠标所在窗体的句柄
handle:=WindowFromPoint(point);
Label1.caption:='当前鼠标坐标：'+inttostr(Point.X)+':'+inttostr(Point.Y )+ ' ';
GetWindowRect(handle,rec);
Label2.caption:='REC：'+inttostr(rec.Left)+':'+inttostr(rec.Top)+' ';
Label3.caption:='客户区坐标：'+inttostr(Point.X -rec.Left )+':'+inttostr(Point.Y -rec.Top)+ ' ';
///////////////////////////////////////////
ahwnd := GetParent(handle);
Label4.caption:=inttostr(ahwnd);
DC:= GetDC(aHwnd);
RGB:= GetPixel(DC,Point.X -rec.Left,Point.Y -rec.Top) ;
Label5.Caption :='目标RGB：'+inttostr(RGB)+' ';
end;
end. 相关阅读 >>
Delphi xe5实现按android的back键无法退出关闭程序
更多相关阅读请进入《Delphi》频道 >>
