comparer un code key à un mot (word)

Version imprimable

27/11/2010, 15h28
dragonno

comparer un code key à un mot (word)

Salut ;)
J'ai un tableau de mots (word) qui sont les codes de touches du OnkeyDown :
(VK_LEFT, VK_CONTROL, etc....)

Lors de la détection du OnkeyDown je voudrais utiliser un case of pour savoir si le key détecté correspond à un des mots du tableau, mais "case..of" n'accepte que des types ordinaux, alors je ne vois pas comment faire.

Ce tableau est en fait le tableau de configuration des touches de mon programme.

Si ça peut t'aider... pour le case of en string... la solution est dans la faq :
Etant donné que la structure Case Of requiert une donnée de type ordinal, il est impossible de faire un Case Of directement avec des String.
L'astuce consiste à utiliser la fonction AnsiIndexStr de l'unité StrUtils :
Code:

1 2 3 4 5 6 7 8 uses StrUtils; ... case AnsiIndexStr(Str, ['Chaîne1', 'Chaîne2', 'Chaîne3']) of 0 : // Str = 'Chaîne1' 1 : // Str = 'Chaîne2' 2 : // Str = 'Chaîne3' -1 : // Str ne vaut aucune de ces trois chaînes end;

27/11/2010, 23h26
dragonno

un type word c'est comme un type string ?

la réponse d'Archimède est sans rapport à la question :)

si je comprend bien ta question tu as un pb à la compilation de ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
const
  Keys:array[0..1] of Word = (VK_LEFT, VK_CONTROL);
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    Keys[0] : ShowMessage('VK_LEFT');
    Keys[1] : ShowMessage('VK_CONTROL');
  end;
end;

je suis assez d'accord, ça devrait compiler...

si tu as besoin de ton tableau en plus des constantes, je te propose un workaround

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
const
  Key0 = VK_LEFT;
  Key1 = VK_CONTROL;
  Keys: array[0..1] of Word = (Key0, Key1);
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    Key0 : ShowMessage('VK_LEFT');
    Key1 : ShowMessage('VK_CONTROL');
  end;
end;

@Salut,

Une autre proposition avec un tableau retournant un boolean, l'avantage tu peux tester si plusieur touche sont utilisées :

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
Type
 
    procedure ProcMess(var msg: TMsg; Var Handled: Boolean);
 
// ...
 
   Var Etatkb:Array[0..255]of Boolean;
 
Implentation
 
procedure TForm1.FormActivate(Sender: Tobject);
begin
  Application.OnMessage:=ProcMess; // C'est partie moin kiki
end;
 
procedure TForm1.ProcMess(Var msg: TMsg; Var Handled: Boolean);
Begin
 
  If (msg.Message=WM_KEYDOWN) THEN Etatkb[msg.wparam]:=True; // MessageWindows reçu
  If (msg.Message=WM_KEYUP) THEN Etatkb[msg.wparam]:=False; 
 
//
// exemple si ESC + SHIFT + Control enfoncé
//
  If (Etatkb[VK_ESCAPE])
    And (Etatkb[VK_SHIFT])
      And (EtatKb[VK_CONTROL]) THEN
        Begin
          Showmessage('coucou');
        end;
End;

Ici tu peux aussi forcer à false Etatkb à l'issu d'une pression de touche.

Tu peux aussi tester le tableau EtatKb ailleur que dans la procedure ProcMess

etc..

Bye

28/11/2010, 15h25
Archimède

Oui, excuse, j'avais lu ton post en travers...
et j'ai retenu :"case..of" n'accepte que des types ordinaux
d'où le réflexe avec la conversion en string.
Si c'est le codage associé aux touches... aucun rapport
désolé