Ctrl + character vers un composant

Version imprimable

10/12/2024, 21h18
Papy214

Ctrl + character vers un composant

Bonsoir,

Je sais comment envoyer un caractère simple vers un composant

Code:

SendMessage(Edit1.Handle, WM_KEYDOWN, 65, 0);

Mais j'ai beau fouiller les forums, je ne trouve pas comment passer une séquence comme Ctrl+A

Certains sites parlent de Keybd_Event mais le problème est qu'il faut appeler cette procédure plusieurs fois pour chaque partie et là les éléments arrivent un par un.
Donc, impossible de détecter le ctrl et le A en même temps.

Certains complètent avec tout un tas de code compliqué qui me parait bien lourdingue pour arriver à ça.

Est-ce que quelqu'un ici aurait une solution simple pour faire ça svp ?

Citation:

Envoyé par Papy214

Certains sites parlent de Keybd_Event mais le problème est qu'il faut appeler cette procédure plusieurs fois pour chaque partie et là les éléments arrivent un par un.
Donc, impossible de détecter le ctrl et le A en même temps.

Ca ne fonctionne pas ?
Code:

1 2 3 4 5 // donner d'abord le focus au composant. Keybd_Event(VK_LCONTROL, 0, 0, 0); Keybd_Event(VK_A, 0, 0, 0); Keybd_Event(VK_A, 0, KEYEVENTF_KEYUP, 0); Keybd_Event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0);
(la constante VK_A est peut-être à définir toi-même)

11/12/2024, 09h01
Andnotor

Citation:

Envoyé par Papy214

impossible de détecter le ctrl et le A en même temps.

Tu peux tester l'état d'une touche par GetAsyncKeyState ou de toutes les touches par GetKeyboardState.

Citation:
Envoyé par Lung
Ca ne fonctionne pas ?
Code:

1 2 3 4 5 // donner d'abord le focus au composant. Keybd_Event(VK_LCONTROL, 0, 0, 0); Keybd_Event(VK_A, 0, 0, 0); Keybd_Event(VK_A, 0, KEYEVENTF_KEYUP, 0); Keybd_Event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0);
(la constante VK_A est peut-être à définir toi-même)
euh si ... merci ..
Les exemples à base de keybd_event que j'avais trouvés ne devaient pas utiliser les mêmes paramètres.
Je vois aussi le KEYUP alors que je traquais le résultat dans OnKeyDown. Grosse erreur donc :-(

En tous cas merci parce ça va m'éviter de reprendre du code en utilisant directement celui du composant. :)

Partant de là, si ça peut servir à d'autres ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
procedure SendChar(Compo: TWinControl; Code: Byte; Avec: TShiftState);
var
  FAvec: Byte;
begin
 
  if ssShift in Avec then
    FAvec := VK_SHIFT // Touche Maj
  else if ssAlt in Avec then
    FAvec := VK_MENU // Touche Alt est enfoncée.
  else if ssCtrl in Avec then
    FAvec := VK_CONTROL // Touche Ctrl est enfoncée.
  else
    FAvec := 0;
 
  Compo.SetFocus;
 
  Keybd_Event(FAvec, 0, 0, 0);
  Keybd_Event(Code, 0, 0, 0);
  Keybd_Event(Code, 0, KEYEVENTF_KEYUP, 0);
  Keybd_Event(FAvec, 0, KEYEVENTF_KEYUP, 0);
end;
 
procedure TForm11.Button1Click(Sender: TObject);
begin
  SendChar(Edit1, Ord('A'), [ssShift]);
end;
 
procedure TForm11.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssShift in Shift then
    if Key = Ord('A') then
      Caption := 'ok';
end;

11/12/2024, 14h26
Andnotor
Clairement pas la meilleure façon de procéder pour une majuscule. Pense que si CAPSLOCK est activé le fonctionnement de SHIFT est inversé. On pourrait aussi maintenir une touche CTRL au clavier, l'edit recevrait Ctrl+Shift+A. Tu dois prendre en considération l'état actuel du clavier avant de procéder.

Mais pour du texte, mieux vaut passer par de l'unicode.
Code:

1 2 Keybd_Event(0, ord('A'), KEYEVENTF_UNICODE, 0); Keybd_Event(0, ord('a'), KEYEVENTF_UNICODE, 0);
Enfin si tu comptes envoyer un texte d'une certaine longueur, privilégie SendInput qui remplit le buffer en une passe.
11/12/2024, 18h57
Papy214

D'accord avec toi mais c'est un cas un peu spécial.

J'utilise un composant qui réagit à des TShortcut définis dans le composant.
On lui indique par exemple Ctrl+R pour déclencher une action.
Le but de ma demande est de pouvoir déclencher cette action sur le composant sans taper la composition de touches manuellement.
Cela ne me sert pas à envoyer réellement du texte dans une zone de saisie.

Je voulais utiliser un SendMessage qui me paraissait plus simple mais je n'arrive pas à trouver comment le composer.
Le code pour le Keydown c'est 256 et 257 pour le keyup.
Mais je n'arrive pas à définir un TWWKey qui comprenne en plus ssctrl

Vcl.Menus fournit une fonction pour créer un TShortCut à partir d'un message mais pas l'inverse.
Si non, je composerais directement un record pour le SendMessage.
12/12/2024, 08h12
ShaiLeTroll

Est-ce est interne dans un programme ou externe entre deux programmes ?

Entre deux, pas de débat

Mais en interne dans un seul, cela n'a pas grand intérêt, suffit d'invoquer une méthode, le plus élégant étant que le Gestionnaire d'Evenement associé au TShortcut appelle une methode MonActionMachin que l'on peut invoquer d'où l'on veut avec les paramètres nécessaires.
12/12/2024, 10h29
Papy214

Il s'agit de la TwwDBgrid auquel je veux envoyer cette instruction.
Elle ne propose pas de méthode directe pour faire le job en un seul appel.
Soit on définit à l'avance les raccourcis pour déclencher les actions "ditto" et on utilise le raccourci, soit on code les différents appels pour chaque champ que l'on veut traiter.
Alors oui, je pourrai faire une procédure qui reprendrait le code du composant puisque je dispose des sources mais je trouve dommage de faire une presque copie du code existant.
Et puis l'envoi d'une séquence de touches pourrait aussi servir pour d'autres composants du même package.

Pour rappel puisque tu as déjà travaillé avec ce composant, la procédure sert à récupérer automatiquement les valeurs d'un champ (ou de tous les champs sélectionnés) de la ligne précédente ou suivante pour les utiliser dans la ligne en cours, en édition ou pas. Et si la méthode existe bien pour un seul champ, elle n'est pas disponible directement pour un enregistrement entier. Le composant fait le travail de détection et de contrôle des champs à traiter.
D'où mon idée de déclencher directement le raccourci dans certains cas ou le traitement doit se faire sur pusieurs lignes.
12/12/2024, 11h02
tourlourou

Citation:

le plus élégant étant que le Gestionnaire d'Evenement associé au TShortcut appelle une methode MonActionMachin que l'on peut invoquer d'où l'on veut avec les paramètres nécessaires.

Citation:

mais je trouve dommage de faire une presque copie du code existant.

Écrire un helper serait-il élégant, sans répétition de code et facilement adaptable aux autres composants ?
12/12/2024, 21h59
Papy214

Citation:

Envoyé par tourlourou

Écrire un helper serait-il élégant, sans répétition de code et facilement adaptable aux autres composants ?

Ça ne changerait pas grand-chose. Un helper pour la grille ne servira qu'à la grille.
Ou alors, faire un helper par composant, chaque helper appelant une procédure d'une même unité ? Pourquoi pas ...