Question

关于delphi获得当前鼠标坐标的问题，注意是delphi

我想写一个程序当鼠标按下左键时，显示鼠标当前坐标及坐标所在的控件的句柄，如果不在控件上就显示那个窗口的句柄。要在其它程序中能用，比如我开着我写的程序，然后我又打开另一个程序按了‘下一步’这个按钮。我想要‘下一步’这个按钮的句柄在我的程序中显示出来。我试过了onmousedown和getcursorpos这两个出了本程序窗口就无效了。请高手给写一个吧。谢谢。送上100分，小弟初学者而且也没什么分。

Answer 1

简单的说就是取鼠标所在位置对应的窗口句柄?

procedure TForm1.Timer1Timer(Sender: TObject);
var
a:TPoint; //用来存放坐标
hw:HWND; //用来存放窗口句柄
begin
GetCursorPos(a); //取得鼠标坐标,并存放进a中
hw := WindowFromPoint(a); //取得变量a 对应的 窗口句柄
Edit1.Text := IntToStr(a.X);
Edit2.Text := IntToStr(a.Y);
Edit3.Text := IntToStr(hw);
end;

Answer 2

这个得用鼠标钩子，需要建一个dll。不加处理，你的程序是捕获不到其它进程的鼠标消息的。
QQ给我，我把程序给你发过去，这里贴不方便。

追问

可以的话给发个邮件，365930436@qq.com,谢谢