Discussion :

[pixigol]

Bonjour
j'ai un (gros) souci, je suis en train de developper une appli et j'ai ce probleme.
L'utilisateur doit saisir un code alphanumerique. Le probleme est qu'il peut aussi bien etre en capslock ou non.
Je ne peux pas me fier au code ASCII car en plus l'utilisateur peut aussi bien avoir un clavier suisse ou belge. Ce qu'il me faudrait c'est arriver a savoir s'il a appuyer sur la touche 1 (meme si il tape & avec un clavier francais par exemple) et ce afin de "corriger" la textbox:
Exemple :
il tape &éfr ou 12FR, j'affiche dans la textBox 12FR.
J'espere que je suis clair dans mes explications.
J'ai parcouru pas mal de forums et tenté (entre autre) d'utiliser la fonction VkKeyScan mais sans succes.
Alors si quelqu'un peut me debloquer, merci d'avance

[Lung]

Je ne peux pas me fier au code ASCII

Au code ASCII d'accord, mais au code touche ?
Ca n'a rien à voir.
Exemple :
Le code ASCII 97 = lettre 'a' (minuscule).
Le code touche 97 = touche '1' du pavé numérique.

[pixigol]

C'est bien le code touche que je voudrais recuperer, j'utilisais VkKeyScan mais j'ai vu que VkKeyScan(1) <> VkKeyScan(&).
J'ai quand meme fait le code suivant :

Code :

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

1
2
3
4
5
6
7
8
 
for i:=1 to length(wsText) do
begin
  wiChar := VkKeyScan(wsText[i]);
  if (wiChar>47) and (wiChar<58) then
    edStdNuDdeExt.Text := edStdNuDdeExt.Text + intToStr(wiChar-48)
  else edStdNuDdeExt.Text := edStdNuDdeExt.Text + High(wsText[i]);
end;

Le truc c'est que pour rajouter de la difficulté, les caracteres sont automatiquement mis en majuscule (et du coup le "à" correspondant à 0 devient "À"). Et VkKeyScan(À) = -1 et pas 48...

[Lung]

C'est bien le code touche que je voudrais recuperer

Tu utilises quel composant ?
Si je prend l'exemple du TEdit, l'évènement OnKeyDown (ou OnKeyPress) te permet de faire ça.

[pixigol]

C'est effectivement un composant TEdit (enfin un peu retouché en interne), mais pour tout dire, ce fameux code n'est pas "tapé", il vient d'un code barre scanné qui renseigne automatiquement le TEdit...
Mais suivant si l'utilisateur est en CAPSLOCK ou non, ben le code est mal renseigné (comme mon exemple plus, "&éfr" au lieu de 12FR)

[Lung]

ce fameux code n'est pas "tapé", il vient d'un code barre scanné qui renseigne automatiquement le TEdit...
Mais suivant si l'utilisateur est en CAPSLOCK ou non, ben le code est mal renseigné (comme mon exemple plus, "&éfr" au lieu de 12FR)

Effectivement, là ça complique ...

[davidkungfu]

Je crois que dans ce bout de code, le probleme du capslock est géré, (pas testé)

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
48
49
50
51
52
53
procedure SendKeys(s : string);
var
    i : integer;
    flag : bool;
    w : word;
begin
    // Get the state of the caps lock key
 
    flag := not GetKeyState(VK_CAPITAL) and 1 = 0;
 
    // If the caps lock key is on then turn it off
    if flag then
    begin
        SimulateKeystroke( VK_CAPITAL, 0 );
    end;
 
    for i := 1 to Length(s) do
    begin
      w := VkKeyScan(s[i]);
      // If there is not an error in the key translation
 
      if ((HiByte(w) <> $FF) and (LoByte(w) <> $FF)) then
      begin
 
        // If the key requires the shift key down - hold it down
 
        if HiByte(w) and 1 = 1 then
        begin
          SimulateKeyDown( VK_SHIFT );
        end;
 
        // Send the VK_KEY
 
        SimulateKeystroke( LoByte(w), 0 );
 
        // If the key required the shift key down - release it
 
        if HiByte(w) and 1 = 1 then
        begin
          SimulateKeyUp(VK_SHIFT);
        end;
 
      end;
    end;
 
    // if the caps lock key was on at start, turn it back on
 
    if flag then
    begin
      SimulateKeystroke( VK_CAPITAL, 0 );
    end;
 
end;