简单的说就是取鼠标所在位置对应的窗口句柄? procedure TForm1.Timer1Timer(Sender: TObject);vara: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-12-22 04:48:00