Click
Posted: Mon Dec 02, 2019 7:16 am
Good day, such a question does not always work click inside the browser how can I fix it?
if more precisely on certain parts of the screen, for example, click on edit on the site but it does not click, but for example clicks on
procedure TForm1.Simulate_Mouse_Click(X, Y: string);
var
MouseEvent : TCefMouseEvent;
KeyEvent : TCefKeyEvent;
begin
MouseEvent.x := strtoint(X);
MouseEvent.y := strtoint(Y);
Chromium1.Browser.Host.SendFocusEvent(true);
Chromium1.Browser.Host.SendMouseClickEvent(PCefMouseEvent(@MouseEvent), MBT_LEFT, false, 1);
Chromium1.Browser.Host.SendMouseClickEvent(PCefMouseEvent(@MouseEvent), MBT_LEFT, true, 1);
end;
if more precisely on certain parts of the screen, for example, click on edit on the site but it does not click, but for example clicks on
procedure TForm1.Simulate_Mouse_Click(X, Y: string);
var
MouseEvent : TCefMouseEvent;
KeyEvent : TCefKeyEvent;
begin
MouseEvent.x := strtoint(X);
MouseEvent.y := strtoint(Y);
Chromium1.Browser.Host.SendFocusEvent(true);
Chromium1.Browser.Host.SendMouseClickEvent(PCefMouseEvent(@MouseEvent), MBT_LEFT, false, 1);
Chromium1.Browser.Host.SendMouseClickEvent(PCefMouseEvent(@MouseEvent), MBT_LEFT, true, 1);
end;