我想实现鼠标一移动就在当前位置给出坐标信息，该怎么办呀？？（在桌面上也可以）

Question

我是这么做的，单没效果！
procedure Tform1.move(var msg:twmncmousemove);
begin
  getcursorpos(p);
  h:=getdc(0);
  dc:=Tcanvas.Create;
  dc.Handle:=h;
  dc.TextOut(p.X,p.Y ,'aaa');
end;

Answer 1

procedure Tform1.move(var msg:twmncmousemove);
begin
  getcursorpos(p);
  h:=getwindowdc(0);
  dc:=Tcanvas.Create;
  dc.Handle:=h;
  dc.TextOut(p.X,p.Y ,'aaa');
end;

Answer 2

很简单阿
Mouse.x
Mouse.y

Answer 3

不好意思,写错了,应该是:
Mouse->CursorPos.x
Mouse->CursorPos.y或者OnMouseMove事件里直接有x,y

Answer 4

请 ehom(？！) 指教！我的意思是想：只要鼠标一移动我得程序就能得到信息，然后进行相应的设置！！！

Answer 5

进入www.google.com，输入"鼠标钩子 DELPHI"，即可获得你想要的资料！

Answer 6

响应onmousemove事件，把application的提示框设为TRUE，再把ONMOUSEMOVE中的X，Y转换成字符填到提示框中即可。