Discussion :

[Lung]

Comment envoyer une combinaison de touche à un composant ?

Par exemple, pour envoyer la touche [F2]:

Code :

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

PostMessage(RichEdit.Handle, WM_KEYDOWN, VK_F2, 0);

Mais pour envoyer [Ctrl + Shift + I] ?

[Paul TOTH]

Comment envoyer une combinaison de touche à un composant ?

Par exemple, pour envoyer la touche [F2]:

Code :

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

PostMessage(RichEdit.Handle, WM_KEYDOWN, VK_F2, 0);

Mais pour envoyer [Ctrl + Shift + I] ?

il faut envoyer les touches VK_LCONTROL, VK_LSHIFT puis Ord('I') en VM_KEYDOWN puis WM_KEYUP

ou passer par Keybd_Event() pour faire la même chose

[Lung]

il faut envoyer les touches VK_LCONTROL, VK_LSHIFT puis Ord('I') en VM_KEYDOWN puis WM_KEYUP

ou passer par Keybd_Event() pour faire la même chose

J'ai essayé, mais ça ne fonctionne pas (le RichEdit ne reçoit rien, ou alors juste le [Ctrl] dans le meilleur des cas : j'ai un point d'arrêt dans son évènement OnKeyDown).

Code :

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

1
2
3
4
5
6
   SendMessage(RichEdit.Handle, WM_KEYDOWN, VK_LCONTROL, 0);
   SendMessage(RichEdit.Handle, WM_KEYDOWN, VK_LSHIFT, 0);
   SendMessage(RichEdit.Handle, WM_KEYDOWN, VK_U, 0);
   SendMessage(RichEdit.Handle, WM_KEYUP, VK_U, 0);
   SendMessage(RichEdit.Handle, WM_KEYUP, VK_LSHIFT, 0);
   SendMessage(RichEdit.Handle, WM_KEYUP, VK_LCONTROL, 0);

Code :

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

1
2
const
   VK_U = 85;

Pareil :

Code :

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

1
2
3
4
5
6
   Keybd_Event(VK_LCONTROL, 0, 0, 0);
   Keybd_Event(VK_LSHIFT, 0, 0, 0);
   Keybd_Event(VK_U, 0, 0, 0);
   Keybd_Event(VK_U, 0, KEYEVENTF_KEYUP, 0);
   Keybd_Event(VK_LSHIFT, 0, KEYEVENTF_KEYUP, 0);
   Keybd_Event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0);

J'ai même testé le code de LadyWasky :

Code :

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

1
2
3
4
5
   SimulateKeyDown(VK_LCONTROL);
   SimulateKeyDown(VK_LSHIFT);
   Sendkeys('U');
   SimulateKeyUp(VK_LSHIFT);
   SimulateKeyUp(VK_LCONTROL);

Je ne pensais pas que ce serait si compliqué.

[Andnotor]

Pareil :

Code :

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

1
2
3
4
5
6
   Keybd_Event(VK_LCONTROL, 0, 0, 0);
   Keybd_Event(VK_LSHIFT, 0, 0, 0);
   Keybd_Event(VK_U, 0, 0, 0);
   Keybd_Event(VK_U, 0, KEYEVENTF_KEYUP, 0);
   Keybd_Event(VK_LSHIFT, 0, KEYEVENTF_KEYUP, 0);
   Keybd_Event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0);

La question est de savoir depuis où et comment tu génères ces commandes : Même application ? Même fiche ? Par TButton ? par TSpeedButton ?
Ne pas oublier que c'est le contrôle détenant la focalisation qui sera affecté. Keybd_Event ne fait que remplir le buffer de clavier sans se soucier de la destination.

[Lung]

La question est de savoir depuis où et comment tu génères ces commandes : Même application ? Même fiche ? Par TButton ? par TSpeedButton ?

Même application, même onglet de PageControl, par un élément d'un menu contextuel.

Ne pas oublier que c'est le contrôle détenant la focalisation qui sera affecté. Keybd_Event ne fait que remplir le buffer de clavier sans se soucier de la destination.

J'ai essayé de faire un RichEdit.SetFocus, mais ça ne change rien.

[Paul TOTH]

euh...c'est supposé faire quoi Ctrl+Shift+U ?!

car Ctrl+Shift+I ça fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.SetFocus;
  Keybd_Event(VK_LCONTROL, 0, 0, 0);
  Keybd_Event(VK_LSHIFT, 0, 0, 0);
  Keybd_Event(Ord('I'), 0, 0, 0);
  Keybd_Event(Ord('I'), 0, KEYEVENTF_KEYUP, 0);
  Keybd_Event(VK_LSHIFT, 0, KEYEVENTF_KEYUP, 0);
  Keybd_Event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0);
end;

[Jipété]

euh...c'est supposé faire quoi Ctrl+Shift+U ?!

Ça souligne la sélection, enfin dans Wordpad tout au moins.

[Lung]

euh...c'est supposé faire quoi Ctrl+Shift+U ?!

Je cherche à reproduire l'indentation / dé-indentation (comme dans Delphi, PsPad, ...) dans un RichEdit (et ça fonctionne).

Mais par contre, j'avais un problème avec l'appel depuis un élément de menu.
Je crois que j'ai trouvé le coupable. Ca serait encore le TActionList qui capture la combinaison de touche.

[Lung]

C'était bien ça. J'ai été obligé de retirer le raccourci du TActionManager.