[Rio] Lecture de code barre

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

jusque là je n'avais aucun souci avec ce truc mais je tombe sur un os, dans une application,
qui fonctionne bien sous windows 10,
Pièce jointe 603520

la lecture ne se fait pas sous xp :calim2: (aucun caractère affiché)
J'ai tout d'abord pensé à un problème de douchette mais le scan se fait parfaitement dans un notepad ou dans une application VCL plus ancienne.

J'ai alors écrit un programme simple (zone de saisie, memo)
Code:

1 2 3 4 5 6 procedure TForm130.Edit1Exit(Sender: TObject); begin memo1.Lines.Add(Edit1.text); Edit1.Text:=''; Edit1.SetFocus; end;
Mais là, en testant avant d'envoyer, j'ai un probléme avec le SetFocus qui n'opére pas :weird: (difficile alors de faire un test sur le poste XP !)

Jusqu'à ce que je m'apperçoive que je code ainsi
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm130.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if (Key=13) or (Key=9) then begin memo1.Lines.Add((Sender As TEdit).text); Key:=0; Edit1.Text:=''; Edit1.SetFocus; end; end;
c.a.d sur OnKeyDown et non sur un OnExit (en utilisant KillFocusByReturn à true)

Questions :
en FMX, à quoi sert le OnExit et KillFocusByReturn ?
Dans le cas d'un OnExit pourquoi setfocus ne fonctionne t-il pas ?
mon problème avec XP pourrait-il être lié ? Comment puis-je m'en dépatouillé (à part bien sûr installé w10 sur le poste ;))?

19/08/2021, 10h27
Paul TOTH

bonjour,

à priori KillFocusByReturn concerne le clavier virtuel, donc rien à voir.

ce qui est surprenant c'est que cela fonctionne sous W10 et pas XP...en même temps ça fait bien longtemps qu'il n'y a plus de tests pour XP....

tu peux tenter un ControlStyle Platform, car en mode Styled TEdit n'est pas un composant Windows, c'est la fiche qui reçoit les évènements et les dispatche aux composants, en mode Platform on s'approche de ce que fait la VCL et c'est directement le TEdit qui traite les messages Windows.
19/08/2021, 10h49
SergioMaster

Citation:

Envoyé par Paul TOTH

à priori KillFocusByReturn concerne le clavier virtuel, donc rien à voir.

Ah, je n'avais pas fait attention à ça :roll:

Citation:

ce qui est surprenant c'est que cela fonctionne sous W10 et pas XP

A qui le dis-tu, c'est vraiment c...t de se retrouver dans cette position à j-6 de l'ouverture du magasin usine !

Citation:

tu peux tenter un ControlStyle Platform,

Je crois bien que tu as mis le doigt dessus :ccool:
je viens de faire un essai sur mon poste w10, il y a bien un son en plus mais le setfocus fonctionne dans ce cas
19/08/2021, 11h26
SergioMaster

Gag de l'histoire, je me suis fait des cheveux (j'aimerais bien) pour rien !
une reconfiguration de la douchette et plus de problème de scan :roll:

Merci de l'attention.
J'ai quand même retenu ce controlstyle := platform cela pourrait servir
et il va falloir que j'investigue sur ce KillFocusByReturn
19/08/2021, 12h04
ShaiLeTroll
Si tu avais un TAB à la place d'un ENTER, si tu avais plusieurs contrôles, ça devait passer au suivant selon le TabOrder (ou l'équivalent FMX)
D'ailleurs, j'ai souvent codé un EnterAsTab pour faciliter la frappe continue des utilisateurs

Dans l'aide, c'est Abort qui est recommandé pour abonner le traitement du OnExit :
Citation:
Envoyé par Description

Se produit quand la focalisation d'entrée sort du contrôle.

OnExit se produit également lorsque DoExit est appelé.

Ecrivez un gestionnaire d’événement pour OnExit pour spécifier ce qui arrive lorsque le contrôle perd la focalisation d'entrée.

Remarque: Par exemple, dans un contrôle TEdit, vous pouvez empêcher l'utilisateur de quitter le contrôle tant qu'une certaine valeur n'a pas été saisie. Cela peut être réalisé avec le code suivant :

Code:

1 2 3 4 5 procedure TForm1.Edit1Exit(Sender: TObject); begin if Edit1.Text <> 'Hello' then Edit1.Abort; end;

Remarquez que du code comme Edit1.SetFocus; n'a pas l'effet escompté.
Contrairement à la VCL où le OnExit se produit lorsque l'on a déjà perdu le focus, en FMX cela se produit semble-t-il juste avant pour le contrôle stylé alors que le comportement du contrôle de plateforme se rapproche à celui de la VCL