Discussion :

[yab2000dz]

Bonjour,

je n'arrive pas a gérer la fin du code barre après sa lecture.
je voudrais qu'a chaque fin de lecture le pointeur quitte automatiquement le composant pour se positionne sur un autre.

j'utilise DELPHI 7 et le composant est un EDIT .

remerciements et salutations.

[gbegreg]

je voudrais qu'a chaque fin de lecture le pointeur quitte automatiquement le composant pour se positionne sur un autre.

Le pointeur ? Vous voulez dire le focus non ?
Pour placer le focus sur un autre composant, après la lecture du code barre (qui d'après ce que je comprends doit alimenter votre champ TEdit), vous souhaitez placer le focus sur le champ suivant automatiquement.
Pour ce faire, après la lecture, il vous suffit de faire un :

Code :

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

monComposantSuivant.setFocus;

[yab2000dz]

Le pointeur ? Vous voulez dire le focus non ?
Pour placer le focus sur un autre composant, après la lecture du code barre (qui d'après ce que je comprends doit alimenter votre champ TEdit), vous souhaitez placer le focus sur le champ suivant automatiquement.
Pour ce faire, après la lecture, il vous suffit de faire un :

Code :

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

monComposantSuivant.setFocus;

merci gbegreg pour votre reponse.

en effet c'est gerer le focus.
voici mon bout de programme qui : après la lecture du code barre récupère le nom du produit de ma base de données ACCESS et au lieu de se positionner directement sur le champ suivant quantité reste sur place (ie : le champ code barre), et ce malgré la commande : champcodebarre.setfocus

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TF_Ventes.Ed_CBChange(Sender: TObject);
begin
if (Ed_CB.Text <> '') then
begin
 AQ_Prod.Locate('C_B', Ed_CB.Text, [loCaseInsensitive]);
 EdPrd.Text:=AQ_Prodnom.Value;
 DBPrd.Visible:=false;
 edit3.SetFocus
end;
 
end;

il s'agit peut être de gérer le CR (#13).

[SergioMaster]

Bonjour,

le meilleur moyen serait d'utiliser l'évènement OnKeyPress du TEdit.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TF_Ventes.Ed_CBKeyPress(Sender: TObject;var Key: Char);
begin
if Key=#13 then 
 begin
   Key:=#0;
   if (Ed_CB.Text <> '') then
    begin
      AQ_Prod.Locate('C_B', Ed_CB.Text, [loCaseInsensitive]);
      EdPrd.Text:=AQ_Prodnom.Value;
      DBPrd.Visible:=false;
    end;
  SelectNext(Sender as TWinControl,true,true); // ou edit3.SetFocus
 end;
end;

Note : par précautions, avec les lectures code-barres, je vide aussi le buffer de clavier

[yab2000dz]

merci sergiomaster pour la réponse,

le probléme persiste ,avec l'evenement onkeypress, avec en plus la non apparition du libellé du champ, c'est a dire la recherche n'a pas pu étre effectuée et le focus est resté sur place .
il faudrait appuyer sur la touche ENTREE pour que l'opération se réalise, chose que je voulais éviter.

[yab2000dz]

bonjour tout le monde,

après plusieurs recherches , j'ai l'impression que ma douchette ne renvoi pas un #13 (CR) après la fin de lecture du code barre .

comment faire pour ca?

j'ai essayer de scanner les différents codes figurant dans le document en ma possession , mais rien a faire

merci pour votre aide