如何实现在 Delphi 窗体上鼠标自动单击某坐标?

如果是自己的窗体源码项目,则很简单:

var x , y : integer;
      x:= 100;
      y := 100;
      var ClientAreaPos := form3.ClientToScreen(Point(0,0));
      x := x + ClientAreaPos.X;
      y := y + ClientAreaPos.y;
      SetCursorPos(x, y); //set cursor to Start menu coordinates
      mouse_event(MOUSEEVENTF_LEFTDOWN,0, 0, 0, 0); //press left button
      mouse_event(MOUSEEVENTF_LEFTUP,0, 0, 0, 0); //release left button

如果是别人的应用程序,那么你需要通过 WinApi,如下:

 

THE END
文章版权归作者所有,未经允许请勿转载。
点赞15赞赏
评论 共6条
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片