关于delphi获得当前鼠标坐标的问题,注意是delphi
发布网友
发布时间：2024-10-23 22:41
共2个回答
热心网友
时间：2024-11-09 18:48
简单的说就是取鼠标所在位置对应的窗口句柄?
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;
热心网友
时间：2024-11-09 18:48
这个得用鼠标钩子，需要建一个dll。不加处理，你的程序是捕获不到其它进程的鼠标消息的。
QQ给我，我把程序给你发过去，这里贴不方便。
