Control du clavier

Version imprimable

28/02/2006, 00h05
carlg

Control du clavier

Salut à tous,

Je développe une petite loupe qui m'aide régulièrement dans mes tâche sur le pc (je suis mal voyant). Le petit truc qui me manque, c'est le control du clavier hors de l'application. Je voudrais par exemple en appuyant sur "ctrl" et "+" que le grossisemnt soit plus important.
Si quelqu'un peu m'aiguiller ou m'expliquer brièvement comment faire, ce serait sympa.

Merci d'avance
28/02/2006, 00h55
JustMe

utilise ton événement onkeypress de ta form et pour la form keypreview doit être à true.
28/02/2006, 10h31
carlg

J'ai déjà essayé, mais ca ne fonctionne pas, car je suis dans une tout autre application qui n'a rien avoir avec celle ci.
04/03/2006, 01h23
Sub0

Salut!

Il faut utiliser cette méthode je crois :
http://nono40.developpez.com/sources/source0007/

à+
04/03/2006, 01h47
petitcoucou31

salut ,

tu peux aussi regarder a cette adresse qui a des exemples de hooks.

http://phidels.com/php/index.php3?page=moteurrecherche.inc.php3
05/03/2006, 13h30
Giovanny Temgoua

On a un article sur le hook clavier :
:arrow: http://tcharles.developpez.com/simul/?delphi=1
06/03/2006, 20h11
devyan

Si tu veux juste connaitre l'état des touches Shift, Control, Alt du clavier, utilises la fonction KeyboardStateToShiftState (de System.pas je crois)

:arrow: Il me semble qu'elle est overload et ne nécessite pas obligatoirement de paramètre TKeyState. SInon, il suffit d'appeler la procedure GetKeyboardState() pour l'obtenir.

Citation:

Envoyé par Sub0

Si tu veux pouvoir appuyer sur plusieurs touches en simultanné, il faut enregistrer l'état de chaque touche dans un boolean.

Perso, j'utilise la méthode suivante pour obtenir l'état des touches du clavier du système :

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Unit Unit1;
Interface
Uses Windows, SysUtils, Classes, Graphics, Controls,
     Forms, ExtCtrls, StdCtrls;
 
Type
  TForm1 = Class(TForm)
    Timer1: TTimer;
    Procedure Timer1Timer(Sender: TObject);
  End;
 
Var
  Form1: TForm1;
 
 
{----------------------------------------------------------------}
{                       }Implementation{                         }
{----------------------------------------------------------------}
{$R *.DFM}
 
Var
  Pos: TPoint;
  Etatkb: Array[1..255] Of Boolean;
 
 
{----------------------------------------------------------------}
Procedure TForm1.Timer1Timer(Sender: TObject);
Var
  x: Integer;
Begin
 
  Timer1.Interval := 1;
 
  For x := Low(Etatkb) To High(Etatkb) Do
    If ((GetAsyncKeyState(x) And 32768) <> 0) Then Etatkb[x] := True
    Else If ((GetAsyncKeyState(x) And 32768) = 0) Then Etatkb[x] := False;
  Pos := Mouse.CursorPos;
 
  { Exemple 1 : Déplacement du curseur avec les touches de directions }
  If (Etatkb[VK_LEFT]) Then Dec(Pos.x, 2);
  If (Etatkb[VK_RIGHT]) Then Inc(Pos.x, 2);
  If (Etatkb[VK_UP]) Then Dec(Pos.y, 2);
  If (Etatkb[VK_DOWN]) Then Inc(Pos.y, 2);
  If (Etatkb[VK_LEFT]) Or (Etatkb[VK_RIGHT]) Or 
     (Etatkb[VK_UP]) Or (Etatkb[VK_DOWN]) Then SetCursorPos(Pos.x, Pos.y);
 
  { Exemple 2 : Touche Echap pour quitter le programme }
  If (Etatkb[VK_ESCAPE]) Then Close;
 
End;
 
 
{----------------------------------------------------------------}
End.

Je pense qu'il faudra peut-être complèter le code avec KeyboardStateToShiftState pour détecter les touches de controle...

http://sub0.developpez.com/delphi/VK.txt

Jette aussi un oeil sur les sources des messages suivants :

http://www.developpez.net/forums/vie...318294#2318294
http://www.developpez.net/forums/viewtopic.php?t=231681

à+ ;)

08/03/2006, 09h56
carlg

:D Merci beaucoup pour votre aide :D