Home > Software engineering >  How to click the mouse at certain coordinates on the form in Delphi?
How to click the mouse at certain coordinates on the form in Delphi?

Time:06-24

How to click the mouse at certain coordinates on the form in Delphi? How I understand first of all need to get coordinates of screen?

CodePudding user response:

If form inside your application, it’s quite simple:

    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

if not – then you need get coordinate of form by WinApi:

function ClickOnWindow(const ATargetWindowClass : PWideChar; ClientX, ClientY : integer) : boolean;
begin
  Result := false;
  var xTargetHWnd := 0;
  xTargetHWnd := FindWindow(ATargetWindowClass, nil); //try to find our window by WindowClassName
  if xTargetHWnd <> 0 then begin
    var xWindowRect := TRect.Empty;
    var xPoint := tpoint.Create(ClientX, ClientY);
    if ClientToScreen(xTargetHWnd, xPoint) then begin   //transform ClientPos to ScreenPos
      SetCursorPos(xPoint.X, xPoint.Y); //set mouse specified coordinates
      mouse_event(MOUSEEVENTF_LEFTDOWN,0, 0, 0, 0); //press left button
      mouse_event(MOUSEEVENTF_LEFTUP,0, 0, 0, 0); //release left button
      Result := true;
    end{if};
  end{if};
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  if ClickOnWindow('TForm3', 100, 100) then
    showmessage('Success')
  else
    showmessage('Fail');
end;
  • Related