webbrowser on click

Question

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

cs_cantador · Answer

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

Webbrowser on click

1 réponse

Votre réponse

Discussions similaires