Discussion :

[phobik]

Bonjour,

J'essaie de réaliser une automatisation comprenant des clics de souris et un glisser/déposer. Sous WINDOWS.
Pas de problème pour déplacer le curseur, par contre je n'arrive pas à trouver comment simuler clic gauche ou droit. Je cherche depuis un moment mais je ne trouve pas grand chose.
Quelqu'un pourrait-il m'orienter ?

Merci

[Roland Chastain]

Bonjour !

Je ne connais pas la réponse mais il me semble qu'il serait utile de préciser le système d'exploitation sur lequel porte votre question.

[phobik]

Bonjour !

Je ne connais pas la réponse mais il me semble qu'il serait utile de préciser le système d'exploitation sur lequel porte votre question.

Oui, désolé, j'ai rectifié mon message.

[Roland Chastain]

En tapant "freepascal lazarus simulate mouse click" dans Google, j'ai trouvé pas mal de choses mais difficile de dire si tel ou tel exemple correspond effectivement à votre problème. Cette page paraît assez complète.

P.-S. J'ai testé cet exemple avec succès. Cependant je me demande quelle peut en être l'utilité (alors qu'on pourrait appeler directement la méthode Button2Click). Je me demande aussi ce que signifie cette histoire de "Mickeys".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('Button2Click');
end;
 
// http://delphi.about.com/od/vclusing/a/mouseadvanced.htm
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Pt: TPoint;
begin
  Application.ProcessMessages;
  {Get the point in the center of Button 2}
  Pt.x := Button2.Left + (Button2.Width div 2);
  Pt.y := Button2.Top + (Button2.Height div 2);
  {Convert Pt to screen coordinates and Mickeys}
  Pt := ClientToScreen(Pt);
  Pt.x := Round(Pt.x * (65535 / Screen.Width));
  Pt.y := Round(Pt.y * (65535 / Screen.Height));
  {Simulate the mouse move}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
  {Simulate the left mouse button down}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
  {Simulate the left mouse button up}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
end;

[phobik]

Mickeys.... Mickey mouse ? non, je sais pas.

En fait j'ai trouvé un truc qui fonctionne. J'ai vu parler de "Mouseandkeyinput". Il y a bien ça dans \lazarus\components\mouseandkeyinput.
A partir de l'exemple il semble qu'il faille ajouter "mouseandkeyinput" dans les uses. Après dans la procédure :
MouseInput.Click(mbLeft, []); pour un clic gauche ou
MouseInput.DblClick(mbLeft, []); pour un double clic par exemple.
Il y a en plus pas mal de trucs à creuser. En tout cas ça fonctionne.

Merci pour ton aide Roland

[Roland Chastain]

Merci pour ton aide Roland

Pas de quoi.

Je vais regarder moi aussi cet exemple.