Discussion :

[annemarie]

bonjour,

j'ai cherché (sans trouver, peut être trop nulle) une solution directe pour transformer la key (en word) passé en paramètre du Keydown, en caractère.


J'ai donc pensé utiliser chr(Key), mais je voudrais pouvoir utiliser le pavé numérique du clavier. Or il me retourne n'importe quoi puisqu'il essaie de faire correspondre les codes du pavé avec la table ascii (et cela ne correspond pas).

Bref existe-il une autre commande pour pouvoir utiliser le keydown et pas le keypress ?

Merci par avance.

[ShaiLeTroll]

Regarde l'unité Windows.pas, cela contient des variables comme VK_CONTROL, VK_SPACE ... ainsi que VK_NUMPAD0, VK_NUMPAD1, ... VK_NUMPAD9

Pour les caractères normaux, la valeur de Key est compatible normalement !
Attention à l'UniCode si 2009 ou +, n'ayant pas expérimenté, tu peux avoir des suprises à ce sujet ? avis aux connaisseurs !

Si tu veux filter plutôt du char ANSI, utilise OnKeyPress au lieu de OnKeyUp\OnKeyDown

[annemarie]

Merci beaucoup pour la réponse (venant du troll quel honneur).

Outre la plaisanterie j'ai donc fait un truc très bête mais qui peut servir

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
function ChrNum(Key: Word): Char;
begin
  case Key of
    48, 96: Result := '0';
    49, 97: Result := '1';
    50, 98: Result := '2';
    51, 99: Result := '3';
    52, 100: Result := '4';
    53, 101: Result := '5';
    54, 102: Result := '6';
    55, 103: Result := '7';
    56, 104: Result := '8';
    57, 105: Result := '9';
    else Result := chr(Key);
  end;
end;

[ShaiLeTroll]

ou plus simple

Code :

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

1
2
3
4
5
6
7
function ChrNum(Key: Word): Char;
begin
  if Key in [VK_NUMPAD0..VK_NUMPAD9] then
    Result := Chr(Ord('0') + Key - VK_NUMPAD0)
  else
    Result := Chr(Key);
end;

[annemarie]

c'est sur ....