Problème de touche clavier

**patoche.05** · 25/10/2012, 09h30

Bonjour,

Mon problème est le suivant, je n'arrive pas tout le temps à attrapper l'évènement l'utilisateur a appuyé sur une touche.
J'ai une TForm FParent qui contient une TForm TFEcranPrincipal qui contient une autre TForm TFSaisie. Chacune de ses TForm contient un ou plusieurs panels (voir la pièce jointe).

J'ai réglé la propriété KeyPreview à true pour chacune de ses TForm. Ce que je ne comprends pas, parfois j'arrive à attraper l'évènement l'utilisateur à appuyer sur une touche, parfois non. J'ai remarqué que si le focus était sur panel 1 ou 3, j'arrivais systématiquement à détecté si l'utilisateur avait appuyé sur la touche. Si le focus est sur le panel 2 ou 4, il ne se passe rien. J'ai comparé les panels entre eux, je n'ai pas vu de différences majeures.

Est-ce que quelqu'un a une idée ou mieux une solution?

**ShaiLeTroll** · 25/10/2012, 11h40

Ce sont des Form ancrés par la propriété Parent ?
il y a une autre technique avec Dock mais je ne l'a connais pas !

Le Focus sur un Panel c'est plutôt difficile normalement, c'est que tu le forces avec un SetFocus, tu as des Edit, des Grilles ou des Boutons avec des raccourcis & !
Pourquoi tu captures le clavier ? si c'est juste pour des raccourcis, utilisent plutôt les Actions, les HotKeys et autres techniques conçus pour cela !

Qui ne capture pas ?
TFMain ne pourra pas recevoir les évènements capturés pas TF_EcranPrincipal (Panel 4) ou TF_Saisies, la propriété Parent imbrique visuellement mais les TForm reste tout de même isolé !

Le KeyPreview est géré par le TWinControl, lorsqu'un TEdit recoit un message clavier, il va chercher son Parent de type TForm (il s'arrête au premier trouvé dans la hiérarchie en partant de lui et en remontant)

**patoche.05** · 25/10/2012, 14h44

Mes Forms sont effectivement imbriquées entre elles à l'aide de la propriété Parent. Pour chacune de ces Forms, j'ai mis en place un code pour récupérer l'action l'utilisateur a appuyé sur la touche. Quand cela fonctionné, c'est le "premier" parent Form du panel qui détecte qu'une touche a bien été enfoncée.

A l'intérieur d'une même Form, selon que tel ou tel panel possède le Focus, le KeyPress fonctionnait ou ne fonctionnait pas.

C'est effectivement dans l'optique de créer des raccourcis.

Je vais creuser cette histoire de HotKey.

**patoche.05** · 25/10/2012, 15h55

Petite rectification, c'est la Form "Parent", c'est-à-dire la mère de toutes mes Forms, qui détecte que l'utilisateur a appuyé sur une touche

**ShaiLeTroll** · 25/10/2012, 16h55

J'étais un peu parti sur le fait que cela soit TFMain qui gérait les raccourcis,

Le TWinControl va chercher son PREMIER Parent de type TForm
Si celui-ci est à KeyPreview à true, il provoque le OnKeyDown \ OnKeyUp de la TForm

Puis il devrait propager au Parent TForm et cela récursivement sauf si Key a été mis à Zéro pour inhiber le caractère !

Si tu as une version pro, n'hésite pas à regarde TWinControl.DoKeyDown \ TWinControl.DoKeyUp dans Controls.pas

Pour le OnKeyPress, pas de bol, lui est géré différemment !
Cela commence pareil
Le TWinControl va chercher son PREMIER Parent de type TForm
Si celui-ci est à KeyPreview à true, il provoque le OnKeyPress de la TForm
Mais il ne propage pas à un éventuel parent TForm, du coup, tu ne reçois pas la notification !

Deux solutions
KeyPress mais chaque TForm gère ses raccourcis
KeyDown pour centraliser les raccourcis dans TFMain

Mais il y a d'autres façons de procéder !
Une TActionList, le Bouton utilise la TAction qui a le ShortCut
Un TApplicationEvents.OnShortCut
Un RegisterHotKey + WMHotKey qui lui fonctionne même lorsque ton application n'est pas active (remercions AndNotOr)

**patoche.05** · 26/10/2012, 09h00

Merci pour ta réponse.

J'ai fait quelques essais avec KeyDown et KeyPress, dés que j'appuie sur une touche clavier, c'est respectivement le KeyDown et le KeyPress de F_Main qui détecte qu'une touche a été enfoncée. Là où ça devient curieux, c'est que cela continue de fonctionner même en ayant mis les KeyPreview à False pour mes 3 forms.

**Gilbert Geyer** · 26/10/2012, 09h57

Bonjour,

Autre possibilité pour détecter l'appui sur une touche donnée :

Code :

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

1
2
3
4
function  ToucheCla(t : integer) : boolean; // Détection Appui Touche-clavier ou Touche-Souris
begin     If  ((GetAsyncKeyState(t) and 32768)<> 0)
          then Result:=true else Result:=false;
end;

Pour l'utilisation :
- Exemple 1 :

Code :

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

1
2
3
4
5
procedure TForm1.Timer1Timer(Sender: TObject);
begin     Timer1.interval:=50; // <- à déclarer dans l'Inspecteur d''objets
          if ToucheCla(VK_CONTROL) then showMessage('A enfoncé la touche Ctrl');
          if ToucheCla(Ord('R')) then showMessage('A enfoncé la touche R ou r');
end;

- Exemple 2 pour interrompre une boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure Quelconque;
var i: integer;
begin
  ...
  for i := 1 to maxInt do begin
    ...
    if ToucheCla(VK_ESCAPE) then Break;
    ...
  end;
end;

A+.

**ShaiLeTroll** · 26/10/2012, 10h42

@Gilbert Geyer, lol, c'était la technique dégeux que j'avais proposé dans [XE2] Raccourci windows intercepté par mon appli juste au dessus du RegisterHotKey + WMHotKey de AndNotOr
Comme quoi, les techniques à la mano conserve un succès fou par rapport au technique intégrée et normalisée

Sinon, ToucheCla peut s'écrire tout simplement

Code :

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

1
2
3
4
function  ToucheCla(t : integer) : boolean; // Détection Appui Touche-clavier ou Touche-Souris
begin     
  Result := (GetAsyncKeyState(t) and $8000) <> 0;
end;

**patoche.05** · 26/10/2012, 10h49

Salut Gilbert,

J'ai essayé ta solution, elle fonctionne et je te remercie de t'être penché sur mon problème. Toutefois, je vais pour le moment garder la solution avec la détection qu'une touche a été appuyée grâce au FormKeyDown de fenêtre mère, même si cette solution ne me satisfait pas totalement.