怎样取得鼠标在当前窗口内的坐标？帮忙~~~100分散

Question

就是以当前窗口左下角为0,0 在这个窗口里面的坐标。我的目的是记录鼠标在这个窗体里面活动的记录。也就是记录鼠标依次的坐标，下次读取记录模拟鼠标操作。

Answer 1

用GetCursorPos 能得到相对桌面左上角的相对坐标。windows默认是第四象限坐标，而不是你希望的第一象限，
如果一定想要第一象限的，你可以自己换算一下。 用桌面的高减去第GetCursorPos得到的高，就是第一象限的了

Answer 2

var
  P: TPoint;
begin
  GetCurPos(P);
  P := ScreenToClient(P);
end;P就是鼠标在该窗体的位置了

Answer 3

用GetCursorPos 能得到相对桌面左上角的相对坐标。

Answer 4

在窗体的OnMouseMove事件里可以直接获得吧,传进来的X,Y就是你要的坐标吧!

Answer 5

用GetCursorPos 能得到相对桌面左上角的相对坐标。
var
 Pa: Tpoint;
begin
  GetCursorPos(Pa);
  Pa :=  Form1.ScreenToClient(Pa); //Pa.x, Pa.y 就是了 
end;

Answer 6

还要大家帮忙了，对api不熟悉，现在手上还没有书......

Answer 7

ScreenToClient(要转换成窗体坐标的窗体句柄，屏幕坐标)//屏幕坐标要包含在TPOINT中