Discussion :

[Vulcanos]

Bonjour à tous,

Dans une TListBox, j'utilise l'événement OnKeyPressed. Seulement, cet événement me détecte toutes les touches ASCII sauf la touche entrée.
Voilà le bout de code :

Code :

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

1
2
3
4
5
6
 
procedure MaFiche.ListBoxKeyPress(Sender: TObject; var Key: Char);
begin
  ShowMessage('Key Pressed : '+ Key);
  if not (Key = #13) then Key := #0 else
  begin etc...

Lorsque je fais [entrée], je n'obtiens aucun message, preuve que cette touche n'est pas détectée, et le composant suivant prend le focus...

Avez-vous une explication ? Merci d'avance.

[MD Software]

Tente de déplacer ton évènement dans le onKeyDown (il survient en premier).

[Vulcanos]

Ok et merci.

Même problème avrc OnKeyDown. Par contre ça fonctionne bien avec OnKeyUp... Je trouve ça un peu "bidouillage", non ? As-tu une explication ?

[MD Software]

Je suis surpris que ça marche avec le keyUp plutôt que le KeyDown, mais bon.

Le ocmposant doit intercepter la touche. C'est la seule explication que je vois.

[phplive]

Etrange ...

Avec Delphi 7 et une listbox tout ca qu'il y a de plus standard ca marche bien !

Tu es sûr que tu n'interceptes pas déjà cette touche à un niveau plus bas ?

[Vulcanos]

Non, je ne pense pas... D'autant plus étrange que sur une autre fiche, le OnKeyPress fonctionne bien... J'essaie de comprendre...

Normalement, avec le ShowMessage dans l'événement, je devrais récupérer le code de la touche Entrée... Là, je n'ai rien...

[Rayek]

Dans le onkeydown

Code :

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

1
2
3
4
5
6
 
Case Key of
  VK_RETURN: begin
    Showmessage('ENTRER');
  end;
end;

C'est normal que tu ne recupères pas le code du caractère entrée vu que ce n'est pas un code caractère visible (< 32 en ASCII).

[Vulcanos]

Salut Malatar,

Pour le OnKeyPress, voilà ce que dit l'aide :

OnKeyPress enregistre le caractère ASCII correspondant à la touche enfoncée. Les touches n'ayant pas d'équivalent ASCII (Maj ou F1, par exemple) ne génèrent pas d'événement OnKeyPress. Les combinaisons de touches (comme Maj+A), ne génèrent qu'un seul événement OnKeyPress (dans cet exemple, Maj+A donne pour Key la valeur "A" si Verr Maj est désactivé). Pour répondre aux touches non-ASCII ou aux combinaisons de touches, utilisez le gestionnaire d'événement OnKeyDown ou OnKeyUp.

Or, toi, tu dis :

C'est normal que tu ne recupères pas le code du caractère entrée vu que ce n'est pas un code caractère visible

La distinction ne se fait pas sur le fait qu'1 caractère soit visible ou non, mais sur le fait que le caractère ait une représentation ASCII. Ce qui est le cas de [Entrée].

En testant un peu mieux mon cas, j'ai la nette impression que lorsqu'il existe un autre composant sur la fiche (Combo, Edit, Bouton...) le OnKeyPress ne détecte plus correctement la touche Entrée.

Est-ce spécifique à ma version de Delphi ou à mon install ?

[Mac LAK]

Tu n'aurais pas un bouton avec la propriété Default à True, sur ta fiche ? Ou un évènement OnKeyPress sur ta fiche, traité grâce à KeyPreview=True ?

[Vulcanos]

Dans le mille Mac Lak. Je viens de tester.

Par défaut, je donne toujours la possibilité à l'utilisateur de sortir de la fiche par Esc... Donc :

Code :

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

1
2
 
 KeyPreview := True et OnkeyPress sur la fiche  // ben tiens !

Bor. de. mer ! J'ai même pas pensé à ça !

Un trés grand merci !

(Par contre, j'ai mis la propriété Default := false pour les boutons)

[Mac LAK]

Bor. de. mer ! J'ai même pas pensé à ça !

Toujours vérifier les trucs "évidents", y compris les trucs dont "on est sûr"... C'est dingue le nombre de bugs que j'ai pu trouver dans des fonctions/modules "testés"...

[Vulcanos]

Ouais, bien d'accord avec toi... Et depuis le temps que je fais ce noble métier, je tombe encore dans la marmite pleine de poix...

Et puisque tu me donnes l'occasion d'1 grand moment de vérité, je pense qu'1 regard extérieur aide à mieux percevoir ces évidences (le forum et ta réponse en sont des preuves).

Le fin du fin étant d'acquérir soi-même ce même regard extérieur par rapport à ses propres elucubrations... J'en ai terminé avec ces considérations digne de Lao-Tseu

Merci encore.

[Mac LAK]

Et depuis le temps que je fais ce noble métier, je tombe encore dans la marmite pleine de poix...

Parceque tu crois être le seul ? J'ai "trouvé" la solution parceque j'ai eu le même problème, un jour... ;-)

je pense qu'1 regard extérieur aide à mieux percevoir ces évidences

Principe même du "pair-programming", et j'ai déjà constaté que c'est extrêmement efficace, à condition d'avoir des développeurs complémentaires, et non pas des "clones".

Bon KeyPress ! ;-)