Discussion :

[Tiko38]

Bonjour à tous!

Voila mon problème...
J'ai un bouton qui declenche une action. Je voudrais utiliser, à un moment donné, la touche F1 du clavier pour declencher la même action.

Exemple: Bouton "Créer (F1)"

Question: Comment faire???

Merci d'avance pour la réponse :o)

[mike600river]

si ton "a un moment donné" c'est qd tu es sur un composant donné alors:
sur le keypress de ce composant

Code :

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

1
2
3
4
  if (Key == code de la touche F1)
  {
    boutonCreerClick(Sender);
  }

[Tiko38]

En fait, je voudrais faire, je pense, comme "ShortCut" pour les menus.

[mike600river]

alors dans ce cas .... ça depasse mes maigres compétences
dsl

[Tiko38]

Merci q. même! :o)

[pottiez]

tu peut essayer en mettant le code de mike600river dans l'evenement OnKeyPress de la Form, sinon il faut que tu fasse un Thread qui va scruter le clavier avec un hook.

[bandit boy]

Salut,
Tu peux contrôler l'appuie sur la touche avec le côde suivant

Code :

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

1
2
3
4
5
 
if((GetAsyncKeyState(VK_F1) & 0x8000) != 0)
{//appuie sur la touche F1
 ...
}

Mais il faut que tu scrutes comme l'a dit pottiez.

[Tiko38]

A nouveau bonjour et merci de votre intervention!

J'ai essayé de faire comme c'était dit, mais j'ai l'impression que la programme ne donne pas la main au clavier. Comme si le clavier était debranché.

Et pour le Thread, j'ai une erreur style, "la fonction Executer de Thread est = 0"

Voila...

[bandit boy]

Il faut que dans ta class TThread tu ais la fonction Execute, c'est celle qui lance ton thread. Comme l'exemple donné ici.

[bakaneko]

J'ai essayé de faire comme c'était dit, mais j'ai l'impression que la programme ne donne pas la main au clavier. Comme si le clavier était debranché.

Essayes en mettant la propriété KeyPreview de ta fiche à true

[10_GOTO_10]

Et pourquoi ne pas utiliser l'événement prévu pour ?

TApplication::OnShortCut
Se produit quand l'utilisateur appuie sur une touche (avant l'événement OnKeyDown).

__property TShortCutEvent OnShortCut = {read=FOnShortCut, write=FOnShortCut};

Description

Utilisez l'événement OnShortCut pour distribuer les frappes de raccourcis clavier avant qu'ils ne soient gérés par la fiche ou ses contrôles. Quand l'utilisateur appuie sur une touche, l'application a l'opportunité de la distribuer comme touche de raccourci au lieu du traitement standard des frappes de touches (OnKeyDown, OnKeyPress et OnKeyUp). Le traitement prédéfini des raccourcis est défini pour les raccourcis de menu et les actions associées à la fiche. OnShortCut permet à la fiche de définir d'autres raccourcis.

Si le gestionnaire d'événement OnShortCut implémente une réponse pour la frappe d'une touche, initialisez le paramètre Handled à true. Cela empêche la transmission de la frappe de touche aux menus ou actions associés à l'application. Cela empêche aussi le traitement de frappe de touche standard, de la même manière que le fait un raccourci d'action ou de menu.

Remarque*: Vous pouvez aussi répondre à cet événement en utilisant le composant TApplicationEvents, qui vous permet d'affecter un gestionnaire d'événement par l'intermédiaire de l'EDI.

[Tiko38]

Salut!

J'ai fait exactement pareil (afin.., je pense).
Mais le problème persiste...

J'ai crée aussi un DLL comme c'est montré sur ce Forum, mais je n'arrive pas à le charger.

Une autre question... dois-je enregistrer le .dll dans le même projet ou dans un autre projet?

Merci, d'avance et pour toutes les réponses!!!

[bandit boy]

Essayes en mettant la propriété KeyPreview de ta fiche à true

Et pourquoi ne pas utiliser l'événement prévu pour ?

L'evènement ne se lance que sur les touches clavier "classique" donc pas sur les flèches, supr., Fx ...
Voilà donc pourquoi il ne peut pas utiliser cet évennement.

[Tiko38]

Pour le KeyPreview - c'est fait (dépuis un moment).

Si qqn sait comment faire sans se casser le ...pied , j'aimerais bien.

[bandit boy]

Une solution de fortune serait de mettre un Timer avec ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    if((GetAsyncKeyState(VK_F1) & 0x8000) != 0)
    {//appuie sur la touche F1
         Timer1->Enabled = false;
         ShowMessage("F1");
         Timer1->Enabled = true;
    }
}

Ici le ShowMessage permet de te rendre compte de la saisie et les Enabled servent à éviter les "rebonds" de la touche (en gros que tu fasses 5 fois l'action pour un appuie sur F1)

Plus ton temps est petit, plus tu réagis vite, perso j'ai essayé avec 1ms et ca fonctionne impec. Si tu veux le faire avec un thread je te donne un exemple plus tard, sinon et si cette solution te convient il ne te reste plus qu'à mettre résolu

[10_GOTO_10]

L'evènement ne se lance que sur les touches clavier "classique" donc pas sur les flèches, supr., Fx ...
Voilà donc pourquoi il ne peut pas utiliser cet évennement.

Ok pour les flèches et suppr, par contre les touches de fonctions devraient marcher (c'est les touches de raccourci les plus utilisées).

Sinon, il faut faire un MESSAGE_MAP sur le message WM_KEYDOWN (voir BEGIN_MESSAGE_MAP dans l'aide)

[Tiko38]

Merci beaucoup! Ca marche à merveil!

Finalement c'était pas plus dificile que ça