Discussion :

[psl]

Salut,
Un petit soucis avec l'événement OnKeyDown.
Je dispose sur une fiche (Form1) de 2 Panels (Panel1 et Panel2).
J'utilise OnKeyDown pour mettre en sur-brillance des labels contenus dans Panel1 à l'aide des flêches gauche et droite du clavier.
A ce stade tout fonctionne parfaitement.
Dans Panel2 est regroupé des BitBtn pour faire des traitements particuliers sur les labels.
A partir du moment où j'utilise les événements liés aux BitBtn, l'événement OnKeyDown ne foctionne plus malgré le focus rendu à Form1.
Comment faire ?
Merci

[Samchi]

A quel composant est ton OnKeyDown ? Si c'est à la fiche, as-tu mis la propriété KeyPreview à vraie ?

Je pense que le mieux est de mettre ton événement dans la fiche. Pour pas avoir des pb de focus.

[psl]

Merci Samchi.
Mais la mise à true de KeyPreview n'a pas d'effet avec les touches de déplacement.
Pour l'événement OnKeyDown, elle est liée à Form1.
@+

[Samchi]

D'accord. Le pb est que si tu mets un composant héritier de TWinControl qui n'a pas un champ de saisie (comme un TEdit), l'événement OnKeyDown n'est pas pris en compte car les flêches directionnelles servent pour aller un composant TWinControl à un autre. Je ne sais pas si on peut le modifier. Peut-être avec le OnKeyDrown de TApplication.
Je vais un peut regarder.

P.S. Un TWinControl peut avoir le focus (pour ceux qu'ils savent pas).

[Samchi]

Avec le OnShortCut de TApplication ça marche. Par exemple :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
  var Handled: Boolean);
begin
if Msg.CharCode in [VK_LEFT,VK_UP,VK_RIGHT,VK_DOWN] then Close;
end;

Ferme l'application même si tu as plusieurs boutons sur la fiche.