Discussion :

[nd25]

Bonjour,

Je réalise actuellement une petite application (pour résumer : je scanne des codes barres et ceux ci sont enregistrés dans une base de donnée).
Pour l'instant, je clique dans ma zone, scanne le code et suis obligé de cliquer sur "valider"...
Sachant qu'après avoir scanné, ma douchette ajoute un "entrée", et que chacun de mes codes font 13 caractères, n'est il pas possible qu'automatiquement après avoir scanné, le bouton "valider" sois cliqué automatiquement ?
Merci

[yam49]

Utilise un evenement de ton champ de recuperation (par exemple le onchange) et si les conditions requises par exemple chhez toi 13 caractères) sont verifié execute le code de ton bouton valider

Cdlt

[Teo]

J'ai aussi eu a gerer un scanner de CodBar.
J'avais utiliser le OnKeyPress du TEdit.
Quand Key=#13 j'active la validation.
Ce qui permet aussi de saisir le numero à la main sans changer le code
de l'appli.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TFiche_Num.EdtNulKeyPress(Sender:TObject;Var Key:Char);
Var
  Ch,C:String;
  I,J,K,D,T:Integer;
  Ajout:Boolean;
begin
  If Key = #13//Touche Entree
  Then Begin
    Key := #0;//Pour annuler le caractere 
    Valider_Saisie;//Gestion du nombre saisi
  End;
end;

Meme si la saisie était manuelle, en pressant la touche "Entree",
cela reviendrat au meme.
Dans ce cas, la propriété OnKeyPreview de ta fiche doit etre à TRUE

[nd25]

Code :

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

1
2
3
4
5
6
7
procedure TMain.NomEditChange(Sender: TObject);
begin
  if Length(NomEdit.Text) = 13 then
  begin
    BoutonValider.Click;
  end;
end;

Merci