Discussion :

[dragonno]

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.

[Archimède]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[dragonno]

un type word c'est comme un type string ?

[Paul TOTH]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[BuzzLeclaire]

@Salut,

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

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
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

[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é