Webbrowser on click

Signaler
-
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
-
Bonsoir a tous,

je suis a la recherche d'une alternative a : webbrowser1.onclick (qui n'existe malheureusement pas sous delphi7...).

je pense que l'un d'entre vous aura certainement la solution...

En fait a la base, je cherche a faire un multiclick de souris...pour cliquer sur une zone, et non sur un pixel..
je l'intention de m'y prendre comme ca:


procedure TForm1.Timer3Timer(Sender: TObject);
var x,y : integer;
begin
x := strtoint(label3.Caption);
y := strtoint(label4.Caption);

x:= x + 1;
setCursorPos(x,y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
y := y + 1;
setCursorPos(x,y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
x:= x - 1;
setCursorPos(x,y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
y := y - 1;
setCursorPos(x,y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

Un big merci pour vos reponses, et pour ce forum toujours aussi pratique et competent!
AlcAt

1 réponse

Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
14
Bonjour,

Oui, cette méthode fonctionne bien :

tu peux l'organiser un peu mieux en écrivant une procédure :

procedure TForm1.SetBouton(Pt: TPoint);
begin
  Pt := FJouer.ClientToScreen(Pt);
  SetCursorPos(Pt.X, Pt.Y);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;


que tu cliques sur une zone ou un pixel, ça revient au même..

cantador