Discussion :

[PhilLU]

Bonjour,
Pour des raisons de contraintes d'utilisateur, une douchette barcode doit être configurée avec un tab_key après le scan.
Lorsque je scanne un bar code sur un champ edit, ce tab_key devrait en fait ne pas me faire changer de champ mais réaliser un Enter.
KeyDown:

Code :

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

if key = vk_TAB then button1.Click;

ou
KeyDown:

Code :

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

if Key = #9 Then Key := #13;

J'ai tenté plusieurs autres procédures trouvée sur le web mais sans succès.
p.ex.:ici
Si vous avez une suggestion?
Merci d'avance
Phil

[tourlourou]

Le Edit.OnChange est-il déclenché ? Avant ou après la tabulation ?
Il faudrait pê essayer de capturer les messages entourant la saisie à la douchette pour voir où et comment agir ?

[Cirec]

Bonjour,

pour cela il faut ruser

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
type
  Tfrm_Main = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;
  public
    { Déclarations publiques }
  end;
 
 ...
 
procedure Tfrm_Main.Button1Click(Sender: TObject);
begin
    MessageDlg('Ici votre traitement.', mtInformation, [mbOk], 0);
end;
 
 
procedure Tfrm_Main.CMDialogKey(var Message: TCMDialogKey);
begin
  with Message do
    if CharCode = VK_TAB then
    begin
      if GetKeyState(VK_CONTROL) >= 0 then
      begin
        Result := 1;
        Button1.Click;
        Exit;
      end;
    end;
  inherited;
end;
 
end.

ceci devrait faire ce que tu demandes

Cordialement,
@+

[PhilLU]

Je tente ceci:

Code :

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

1
2
3
4
5
6
procedure TForm1.Intro_prelKeyPress(Sender: TObject; var Key: Char);
begin
if  not (Key in ['0'..'9',#13, #9]) then Key := #0;
if Key = #9 Then Key := #13;
if (key=#13) OR (key = #9) then button1.Click;      //if key = vk_TAB
end;

Code :

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

1
2
3
4
5
procedure TForm1.Intro_prelKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = vk_TAB then button1.Click;
end;

la suite est:

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
if  (length(Intro_prel.Text)=8) AND (pos('2',Intro_prel.Text)=1) then
 begin
...

[sergio_is_back]

Perso je préfère utiliser "les douchettes" en mode émulation port série, cela donne un contrôle plus fin... On peut découper le code, le placer dans le champ ha doc même si ce dernier n'a pas le focus, faire des vérifications préalables et rejeter un code non-conforme, etc... C'est beaucoup plus souple...

Et la plupart savent le faire... Après si ça dépend de l'existant (du passif)

[pprem]

Attention à la tabulation, elle est parfois interceptée avant de nous donner la main, du coup selon si on est en VCL ou FMX le résultat ne sera pas le même ni faisable.

[Cirec]

Attention à la tabulation, elle est parfois interceptée avant de nous donner la main, du coup selon si on est en VCL ou FMX le résultat ne sera pas le même ni faisable.

bonjour,

c'est exactement ce que permet le bout de code que j'ai posté plus haut (pour la VCL)

Cordialement,
@+