Delphi中获取客户区坐标


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.
联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678