模拟鼠标点击操作

最新推荐文章于 2022-03-27 09:44:45 发布

转载最新推荐文章于 2022-03-27 09:44:45 发布 · 642 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/u/582827/blog/1799692

文章标签：

#php #python

本文提供了一个使用Delphi实现自动化点击的示例代码。通过设置鼠标位置并模拟鼠标点击事件，可以实现在指定控件上的自动交互。该示例展示了如何获取控件的位置，并利用Windows API进行鼠标操作。

2019独角兽企业重金招聘Python工程师标准>>>

var
  point: TPoint;
begin
  Application.BringToFront;
  Form1.WindowState := wsMaximized;
  Form1.FormStyle := fsStayOnTop;
  // edt1.SetFocus;

  point.x := edt1.left + 3;
  point.y := edt1.Top + 3;
  windows.ClientToScreen(form1.handle, point);
  setcursorpos(point.x, point.y);

  mouse_event(MOUSEEVENTF_LEFTDOWN, point.x,point.y, 0, 0);
  Sleep(10);
  mouse_event(MOUSEEVENTF_LEFTUP, point.x, point.y, 0, 0);
end;

转载于:https://my.oschina.net/u/582827/blog/1799692