Discussion :

[mamou30]

Les codes touche virtuelle fournissent une représentation symbolique des appuis utilisateur sur les touches.

Les codes touche virtuelle vous permettent de représenter les valeurs clavier pour les touches non-alphanumériques. Windows définit des constantes spéciales pour chaque touche pouvant être frappée par l'utilisateur. Ces constantes peuvent alors être utilisées pour faire référence à la frappe de touche dans des appels API Windows ou dans un gestionnaire d'événement OnKeyUp ou OnKeyDown.
Voici Un tableau descriptif

[Fabrice ROUXEL 1]

Merci pour l'info.

Sinon toutes les constantes sont également listées dans l'unité windows.pas

[NapsterVB]

salut ,
je te remerci pour cette DOc , ces tres interessant .
ce que je cherche les Roles des Fonction qui ce trouvent dans les Uses en delphi
comme Sysutils , StrUtils ...........etc..
et merci d'avance

[Gilbert Geyer]

Sympa le fichier Code Touche virtuelle2.doc ... dommage qu'il ne fournisse pas davantage d'infos que windows.pas ou que l'aide en ligne de Delphi, mais merci quand-même.
Ce serait intéressant de trouver la liste des effets obtenus directement (sans ligne de code) par les Combinaisons de Touches du type Ctrl+A = Selectionner tout dans la zone qui a le focus, Ctrl+C = Copier sélection vers presse-papier, etc et autres combinaisons qui activent directement des fonctions Windows sans avoir à ajouter du code dans Delphi.

[Ludo_360]

comment prendre en compte les parenthèse avec les codes virtuels?

pour les lettres c'est Ord('..').
mais parenthèses?????

[ebastien]

Bonjour,
Ca dépend ce que tu cherches à faire :
Si c'est pour envoyer le caractère '(' via le message WM_CHAR, la fonction Ord('(') fonctionne :

Code :

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

  SendMessage(Edit1.Handle,WM_CHAR,Ord('('),0);

Si c'est pour une utilisation dans l'événement OnKeyDown (ou OnKeyUp) d'un control, l'évènement envoie en paramètre l'état des touches Shift, Ctrl et Alt. Donc si tu veux savoir si l'utilisateur à appuyé sur '(', tu testes Ord('5') et le paramètre Shift :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 case Key of
   ord('5') : begin
                if (ssShift in Shift) then
                  ShowMessage('Touche 5')
                else
                  ShowMessage('Touche (');
              end;
  end;
end;

Enfin, si c'est pour utiliser le message WM_KEYDOWN, tu utilises Ord('5') :

Code :

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

  PostMessage(Edit2.Handle,WM_KEYDOWN,Ord('5'),0);

Avec WM_KEYDOWN, c'est pour envoyer '5' que tu es embêté (au même titre que d'envoyer un caractère en majuscule avec ce message, c'est pas gagné ...)
En espérant avoir répondu à ta question.
Eb.

[akremb22]

Merci, ca m'aide bcp