RSS订阅 | 匿名投稿
您的位置:网站首页 > 鼠标 > 正文

Delphi中获取客户区坐标

作者:admin 来源:未知 日期:2010/5/22 20:17:05 人气: 标签:

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.
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: