Difference between revisions of "MouseAndKeyInput/fr"

From Lazarus wiki
Jump to navigationJump to search
m (Fixed syntax highlighting)
 
Line 38: Line 38:
  
 
Pour simuler la pression de F1 depuis une touche :
 
Pour simuler la pression de F1 depuis une touche :
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
procedure TForm1.HelpButtonClick(Sender: TObject);
 
procedure TForm1.HelpButtonClick(Sender: TObject);
 
begin
 
begin
Line 50: Line 50:
  
 
Contrôle de la souris :
 
Contrôle de la souris :
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
   MouseInput.Click(mbLeft,[],300,300);  // Left click on X:=300 , Y:=300
 
   MouseInput.Click(mbLeft,[],300,300);  // Left click on X:=300 , Y:=300
 
   MouseInput.Click(mbRight,[],1365,2);  // Right click on X:=1365 , Y:=2
 
   MouseInput.Click(mbRight,[],1365,2);  // Right click on X:=1365 , Y:=2
 
</syntaxhighlight>
 
</syntaxhighlight>
 
<br/>
 
<br/>

Latest revision as of 00:07, 21 February 2020

English (en) français (fr)

A propos

Le paquet MouseAndKeyInput est un outil multi-plateform de manipulation avec la souris et l'entrée clavier. Vous pouvez déplacer le curseur vers une position spécifiée, envoyer des clicks et simuler des pressions de touche. Il est approprié pour le test des IHM ou le contrôle de programme de démonstration

Emplacement

lazarusdir/components/mouseandkeyinput

Auteur

Tom Gregorovic

Licence

GPL

Journal des changements

  • Version 0.1

Restrictions

  • il n'est pas recommandé d'appeler la souris et les entrées clavier depuis des événements comme OnClick,, utilisez Application.QueueAsyncCall à la place.
  • ne pas oublier de revenir sur l'état d'un bouton de souris et d'une touche après la méthode Down avec la méthode Up.

Carbon

  • La pression sur les caractères alpha n'est pas supportée.

Gtk1/2

  • a besoin de la bibliothèque Xtst
  • La pression sur les ALT+touche n'est pas supportée.

Comment faire

Avec votre projet ouvert : Allez dans le répertoire d'installation de Lazarus -> components -> mouseandkeyinput.

Là vous trouverez : lazmouseandkeyinput.lpk. Ouvrez et compilez le .lpk.

Dans votre unit.pas ajoutez dans la clause Uses : MouseAndKeyInput ,LCLType

Pour simuler la pression de F1 depuis une touche :

procedure TForm1.HelpButtonClick(Sender: TObject);
begin
  KeyInput.Apply([ssCtrl]);
  KeyInput.Press(VK_F1);                // This will simulate press of F1 function key.
  KeyInput.Unapply([ssCtrl]); 
end;

Les définitions VK sont trouvés ici : http://lazarus-ccr.sourceforge.net/docs/lcl/lcltype/index-2.html

Contrôle de la souris :

  MouseInput.Click(mbLeft,[],300,300);   // Left click on X:=300 , Y:=300
  MouseInput.Click(mbRight,[],1365,2);   // Right click on X:=1365 , Y:=2