Discussion :

[wikers]

Bonjour,
je cherche a conbiner l'action de plusieurs touches. J'ai le code suivant

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
 if(GetAsyncKeyState(VK_ESCAPE) < 0 ) then
     begin
     close;
     end;
 
     if(GetAsyncKeyState(90) < 0 ) then
     begin
     STATE_object_move(tracteur,OBJECT_SPACE,-speed,0,0);
     end;
 
     if(GetAsyncKeyState(81) < 0 ) then
     begin
     STATE_object_rotate_z(tracteur,5,OBJECT_SPACE);
     end;
 
     if(GetAsyncKeyState(68) < 0 ) then
     begin
     STATE_object_rotate_z(tracteur,-5,OBJECT_SPACE);
     end;

Le probléme et que je ne peu pas appuyer sur deux touches en même temps sinon il ne se passe qu'une action or je voudrais que si j'appuie sur deux touches en même temps les 2 actions se produisent mais comment faire ?
merci

[Juju_41]

Bonjour

Je pense que tu devrais utiliser la fonction GetKeyboardState à la place (une petite doc ici).

[Sub0]

Salut!

J'ai eu le même problème au tout début avec Delphi.
Pour obtenir l'appui simultanné de touches, il faut enregistrer l'état de chacune dans un boolean, comme ceci:
(peu importe la méthode utilisée pour récupérer le code des touches)

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
UNIT Unit1;
INTERFACE
USES Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,
     Forms,Dialogs,ExtCtrls,StdCtrls;
 
TYPE
  TForm1 = CLASS(TForm)
    Label1: TLabel;
    PROCEDURE FormActivate(Sender: TObject);
    PROCEDURE ProcMess(var msg: TMsg; Var Handled: Boolean);
  END;
 
VAR Form1:TForm1;
 
 
{----------------------------------------------------------------}
{                       }IMPLEMENTATION{                         }
{----------------------------------------------------------------}
{$R *.DFM}
 
VAR  Etatkb:Array[0..255]of Boolean;
 
 
{----------------------------------------------------------------}
PROCEDURE TForm1.ProcMess(Var msg: TMsg; Var Handled: Boolean);
VAR x:Integer;
BEGIN
 
 IF(msg.Message=WM_KEYDOWN)THEN Etatkb[msg.wparam]:=True;
 IF(msg.Message=WM_KEYUP)THEN Etatkb[msg.wparam]:=False;
 
 IF(Etatkb[VK_ESCAPE])AND(Etatkb[VK_SHIFT])THEN
   Label1.Caption:='Touches Shift-Echap appuyées!' ELSE
   Label1.Caption:='Touches Shift-Echap relachées!';
 
END;
 
 
{----------------------------------------------------------------}
PROCEDURE TForm1.FormActivate(Sender: TObject);
BEGIN
  Application.OnMessage:=ProcMess;
END;
 
 
{----------------------------------------------------------------}
END.

Pour les touches de contrôle comme Alt ou Ctrl, il faut utiliser un hook clavier.
Recheche sur le forum, le sujet a déjà été traîté il me semble... à+

[wikers]

ok merci je vais essayer

[Sub0]

Quelques liens intérressants sur le sujet.
http://www.developpez.net/forums/viewtopic.php?t=44685
http://www.developpez.net/forums/viewtopic.php?t=231681
http://delphi.developpez.com/sources...no40source0007
(J'envisage prochainement de faire un tuto avec qq sources), à+

[Sub0]

http://sub0.developpez.com/delphi/hookclavier.zip

[wikers]

ok merci la j'ai de quoi faire

[Sub0]

Au passage, voici des fonctions très intérressantes pour une application console avec Delphi:
http://www.geocities.com/alexfedorov/con_apps.htm

J'ai essayé ces fonctions. J'ai dû faire quelques modifs par rapport à la source présente dans la page...
Clrscr, GotoXY, KeyPressed, readKey, ShowCursor, etc... Je suis en train de développer une unité CRT pour Delphi.

à+