delphi获得当前鼠标坐标
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了delphi获得当前鼠标坐标相关的知识，希望对你有一定的参考价值。
简单的说就是取鼠标所在位置对应的窗口句柄?
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;
以上是关于delphi获得当前鼠标坐标的主要内容，如果未能解决你的问题，请参考以下文章