Discussion :

[Cisco1]

Bonjour à tous,
Est-ce qu'une âme éclairée pourrait me montrer comment lancer une procédure qui est déjà inclue dans un Button à partir d'une touche clavier, en l'occurence la touche UP ARROW (#24) ? (En fait je voudrais pouvoir exécuter cette procédure à partir du Button ou à partir de la touche).
Merci d'avance pour vos lumières.

[mick605]

Salut

Il te suffit d'appeler dans l'evenement OnKeyDown la procedure Button1Click si la touche appuyée est la bonne ... (Test sur Key)

Bonne chance

[DOLPat®]

Il te suffit d'appeler dans l'evenement OnKeyDown la procedure Button1Click si la touche appuyée est la bonne ... (Test sur Key)

Cela ne fonctionnera pas. Tout du moins pas avec les touches de direction...
Ni avec la touche "HOME" car le code 24 correspond à la touche "HOME" et non pas à UP ARROW. (code 26) Voir la liste des scancodes.

Et c'est logique car les flèches de direction permettent la navigation avec le clavier pour passer d'un bouton à l'autre par exemple.

Pour arriver à capturer les actions sur les touches spécifiques, if faut d'une part inhiber la capture de celles-ci par le composant en mettant TabStop à False. Ensuite on demande à la fiche de capturer les actions clavier en mettant KeyPreview à True.

Il suffit alors d'utiliser l'événement pour traiter les actions sur le clavier. Par exemple:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_Home:  Caption:='Origine (Home)';
    VK_UP:    Caption:='Direction montée';
  end;
end;

[Cisco1]

Bonjour à tous,
Merci à Mick 605 et DOLPat pour les réponses. J'ai suivi la procédure de DOLpat. Pour tout dire cela ne fonctionne pas correctement. J'obtiens un résultat plutôt surprenant. La touche VK_UP ne fonctionne pas. Après réflexion j'ai essayé toutes les touches une à une et j'ai trouvé que la touche 'Enter' fonctionnait quand le focus se trouvait sur le Button et la procédure inclue dans ce Button était appliquée. Mais j'ai aussi trouvé que si je plaçais le focus sur un autre Button, la touche 'Enter' appliquait la procédure inclue dans cet autre Button.
Question 1 : Pourquoi la touche 'Enter' fonctionne-t-elle alors que j'ai écrit VK_UP ?
Question 2 : Pourquoi puis-je appliquer la procédure inclue dans un autre bouton alors que je ne l'ai pas écrit dans le FormKeyDown ?
La remarque de DOLpat concernant les flèches est également pertinente et j'ai donc décidé d'utiliser plutôt la touche 'u' qui, si je ne me trompe pas cette fois correspond au chiffre '55'. Et en fait je voudrais pouvoir appliquer la procédure du Button à partir de la touche 'u' sans que le focus soit spécialement placé sur le Button, est-ce possible ?
Comment faire dans ce cas ?
D'avance merci d'éclairer ma lanterne.

[DOLPat®]

Je ne vois pas pourquoi cela ne fonctionnerait pas. Focus ou pas focus, les événements du clavier doivent se produire dans la procédure FormKeyDown si tu as mis KeyPreview de la fiche à True et TabStop de tes boutons à false.

Peut-tu nous montrer ton code ?

[Cisco1]

Bonjour DOLpat,
Merci de ta réponse.
Voici le code :

Code :

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

1
2
3
4
5
6
7
procedure TFMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_UP: Button2click(Sender);
  end;
end;

KeyPreview de la Fiche est à True,
TabStop du Button concerné est à False et OnKeyDown : FormKeyDown
Y-a-t'il autre chose à ajouter ?