Discussion :

[peter27x]

bonjour,

je veux simuler un clic droit, déplacement souris dans menu contextuel, puis clic gauche, mais le problème est au niveau du processMessages : si je ne le met pas, le menu ne s'affiche pas mais le reste du traitement s'execute... si je le mets, le menu s'affiche mais... le programme reste bloqué dans cette position, les traitements qui suivent ne s'executent pas... il faut faire par exemple RETURN avec le clavier pour débloquer la situation...

Voici le code:

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
27
28
29
30
31
32
33
procedure SimulateRightButtonDown(ptHere:TPoint);
begin
  SetCursorPos(ptHere.X, ptHere.Y);
  Sleep(500);

  {Simulate the mouse move}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or
               MOUSEEVENTF_RIGHTDOWN,
               ptHere.x, ptHere.y, 0, 0) ;
  Sleep(500);
  {Simulate the left mouse button up}
         Mouse_Event(MOUSEEVENTF_ABSOLUTE or
               MOUSEEVENTF_RIGHTUP,
               ptHere.x, ptHere.y, 0, 0) ;

  Application.ProcessMessages;

   ptHere:=Point(ptHere.x+10, ptHere.y+10);

   Sleep(500);

  {Simulate the mouse move}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or
               MOUSEEVENTF_LEFTDOWN,
               ptHere.x, ptHere.y, 0, 0) ;
  Sleep(500);
  {Simulate the left mouse button up}
         Mouse_Event(MOUSEEVENTF_ABSOLUTE or
               MOUSEEVENTF_LEFTUP,
               ptHere.x, ptHere.y, 0, 0) ;

end;

Si vous avez une solution,

Merci !

[ShaiLeTroll]

Il me semble que l'affichage d'un Menu c'est assez ressemblant à un ShowModal, en fait, cela contourne la boucle Run normal par une boucle spécifique des messages ... je pense que les deux sont un peu contradictoire ... essaye de mettre ton code dans un Thread (vu que tu ne manipule que ptHere, ça devrait passer sans soucis, faut juste mettre )

Après, je ne sais pas à quoi cela sert, pour tester l'interface ?
si c'est pour lancer un code, un MenuItem.Click reste plus simple !

[peter27x]

Il me semble que l'affichage d'un Menu c'est assez ressemblant à un ShowModal, en fait, cela contourne la boucle Run normal par une boucle spécifique des messages ... je pense que les deux sont un peu contradictoire ... essaye de mettre ton code dans un Thread (vu que tu ne manipule que ptHere, ça devrait passer sans soucis, faut juste mettre )

Après, je ne sais pas à quoi cela sert, pour tester l'interface ?
si c'est pour lancer un code, un MenuItem.Click reste plus simple !

C'est pour simuler l'actions de l'utilisateur pour une demo, mouvement de la souris sur le menu, puis clic gauche... Mais je suis bloqué vu que le prog n'a plus la main apres le processMessage, ça semble correspondre à ce que tu dis pour le traitement façon fenêtre modale...