Touche entrée [Résolu]
flo160fr
- Messages postés
- 162
- Date d'inscription
- dimanche 19 novembre 2000
- Dernière intervention
- 14 avril 2009
- Messages postés
- 4307
- Date d'inscription
- samedi 16 octobre 2004
- Dernière intervention
- 2 janvier 2019
A voir également:
- Getkeystate delphi
- Procédure après touche entrée - Meilleures réponses
- Procédure après touche entrée dans - Meilleures réponses
- Desactivation de la touche "entree" (ou autre) - Codes sources - Javascript (Cookies)
- Touche entree et echape sur listview ✓ - Forum - ASM
- Taper la touche "Entrée" pour revenir à la ligne dans un textbox ✓ - Forum - Visual Basic 6
- AS3 touche entrée en multi images ✓ - Forum - Flash
- Problème avec l'interruption 21h et récup de la touche Entrée ✓ - Forum - ASM
16 réponses
Meilleure réponse
- Messages postés
- 424
- Date d'inscription
- mardi 3 janvier 2006
- Dernière intervention
- 26 novembre 2013
Salut,
Enter = 13
Pour connaître les autres caractères, tu mets sur une form un label, tu crées un évenement Form1.OnKeyDown : Label1.Caption:= IntToStr(Key);
et tu frappes...
Pour avoir la valeur en hexa tu fais : Label1.Caption:= IntToHex(Key,8).
A +
Enter = 13
Pour connaître les autres caractères, tu mets sur une form un label, tu crées un évenement Form1.OnKeyDown : Label1.Caption:= IntToStr(Key);
et tu frappes...
Pour avoir la valeur en hexa tu fais : Label1.Caption:= IntToHex(Key,8).
A +
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1529
- Date d'inscription
- samedi 12 juin 2004
- Dernière intervention
- 5 juillet 2010
ou sinon, plus simple, vas sur ce site (à mettre dans tes favoris, ça peut toujours être utile !) :
http://www.commentcamarche.net/base/ascii.php3
@+
Nico {www.ni69.info}
N'oubliez pas de cliquer sur Réponse Acceptée lorsque la réponse vous convient !
http://www.commentcamarche.net/base/ascii.php3
@+
Nico {www.ni69.info}
N'oubliez pas de cliquer sur Réponse Acceptée lorsque la réponse vous convient !
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 424
- Date d'inscription
- mardi 3 janvier 2006
- Dernière intervention
- 26 novembre 2013
Ctrl+H : dans un composant d'édition (TEdit...) : ça marche.
F1..F2, fin, tab, insert : pas de problèmes pour retrouver leur valeur.
Pour savoir si les touches Ctrl, Shift et Alt ont été enfoncées : dans un événement OnKeyDown c'est très facile :
if (ssCtrl in Shift) and (key = VK_F5) then... //tu récupères ainsi un Ctrl + F5
sinon, tu dois jongler avec la réception d'un message clavier et employer des fonctions Windows comme GetKeyState...
F1..F2, fin, tab, insert : pas de problèmes pour retrouver leur valeur.
Pour savoir si les touches Ctrl, Shift et Alt ont été enfoncées : dans un événement OnKeyDown c'est très facile :
if (ssCtrl in Shift) and (key = VK_F5) then... //tu récupères ainsi un Ctrl + F5
sinon, tu dois jongler avec la réception d'un message clavier et employer des fonctions Windows comme GetKeyState...
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
Salut,
Essaye ce bout de code:
type
TForm1 = class (TForm)
Label1: TLabel;
private
{ Déclarations privées }
Procedure WMKey(Var Msg : TWMKeyDown);Message WM_KEYDown;
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.WMKey(var Msg: TWMKeyDown);
Var KeyName: Array[0..255] of char;
begin
GetKeyNameText(Msg.KeyData , KeyName, SizeOf(KeyName));
Label1.Caption : = Format('Touche : %s Code : %d', [KeyName, Msg.CharCode]);
end;
end.
@+
Cirec
Essaye ce bout de code:
type
TForm1 = class (TForm)
Label1: TLabel;
private
{ Déclarations privées }
Procedure WMKey(Var Msg : TWMKeyDown);Message WM_KEYDown;
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.WMKey(var Msg: TWMKeyDown);
Var KeyName: Array[0..255] of char;
begin
GetKeyNameText(Msg.KeyData , KeyName, SizeOf(KeyName));
Label1.Caption : = Format('Touche : %s Code : %d', [KeyName, Msg.CharCode]);
end;
end.
@+
Cirec
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
Et pour plus d'informations sur les touches pressées il faut utiliser un KeyboardHook en local et la toutes les touches sont détectées avec en plus d'autres données comme :
Touche Standard où Étendue
Alt pressé où non
Touche pressée, relâchée, maintenue
@+
Cirec
Touche Standard où Étendue
Alt pressé où non
Touche pressée, relâchée, maintenue
@+
Cirec
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4307
- Date d'inscription
- samedi 16 octobre 2004
- Dernière intervention
- 2 janvier 2019
petite fonction magique sans hook ... avec detection Caps, Scroll, Pause, Num lock ect...
correction et distinction des rshift, lshift, rctrl, lctrl, ralt, alt-gr, touches de fonctions, bouttons de souris ect...
a utiliser comme suis par exemple :
procedure TForm1.KeyPress(Sender : TObject; Key : char);
var BSKeys : TByteSet;
begin
KeyboardState(BSKeys);
if VK_???in BSKeys then windows.beep(440,5);
// si BSKeys contient la touche
VK_??? on fait un beep
if [VK_??,VK_??,VK_??]<= BSKeys then
windows.beep(880,5);
// si BSKeys contient l'ensemble de touches
[VK_??,VK_??,VK_??] on fait un beep
if
[VK_??,VK_??,VK_??]
= BSKeys then
windows.beep(1760,5);
// si BSKeys ne contient que les touches
[VK_??,VK_??,VK_??] on fait un beep
end;
{ ----------------------- }
type
TByteSet = Set of byte;
procedure KeyboardState(var KeysSet : TByteSet);
var K : byte;
begin
// reset Keys set
KeysSet
:= [];
{ Get persistent keys }
// caps lock
if GetKeyState(144) = 1 then
KeysSet
:=
KeysSet
+ [144];
// scroll lock
if GetKeyState(145) = 1 then
KeysSet
:=
KeysSet
+ [145];
// Num lock
if GetKeyState(20) = 1 then
KeysSet
:=
KeysSet
+ [20];
// pause
if GetKeyState(19) = 1 then
KeysSet
:=
KeysSet
+ [19];
{ Get pushed keys }
for K := 0 to 255 do
if windows.GetAsyncKeyState(K) < 0 then begin
KeysSet
:=
KeysSet
+ [K];
case K of
// correction of Ctrl, Alt, Shift
17,16,18 :
KeysSet
:=
KeysSet
- [K];
// correction of AltGr
165 :
KeysSet
:=
KeysSet
- [162];
end;
end;
end;
correction et distinction des rshift, lshift, rctrl, lctrl, ralt, alt-gr, touches de fonctions, bouttons de souris ect...
a utiliser comme suis par exemple :
procedure TForm1.KeyPress(Sender : TObject; Key : char);
var BSKeys : TByteSet;
begin
KeyboardState(BSKeys);
if VK_???in BSKeys then windows.beep(440,5);
// si BSKeys contient la touche
VK_??? on fait un beep
if [VK_??,VK_??,VK_??]<= BSKeys then
windows.beep(880,5);
// si BSKeys contient l'ensemble de touches
[VK_??,VK_??,VK_??] on fait un beep
if
[VK_??,VK_??,VK_??]
= BSKeys then
windows.beep(1760,5);
// si BSKeys ne contient que les touches
[VK_??,VK_??,VK_??] on fait un beep
end;
{ ----------------------- }
type
TByteSet = Set of byte;
procedure KeyboardState(var KeysSet : TByteSet);
var K : byte;
begin
// reset Keys set
KeysSet
:= [];
{ Get persistent keys }
// caps lock
if GetKeyState(144) = 1 then
KeysSet
:=
KeysSet
+ [144];
// scroll lock
if GetKeyState(145) = 1 then
KeysSet
:=
KeysSet
+ [145];
// Num lock
if GetKeyState(20) = 1 then
KeysSet
:=
KeysSet
+ [20];
// pause
if GetKeyState(19) = 1 then
KeysSet
:=
KeysSet
+ [19];
{ Get pushed keys }
for K := 0 to 255 do
if windows.GetAsyncKeyState(K) < 0 then begin
KeysSet
:=
KeysSet
+ [K];
case K of
// correction of Ctrl, Alt, Shift
17,16,18 :
KeysSet
:=
KeysSet
- [K];
// correction of AltGr
165 :
KeysSet
:=
KeysSet
- [162];
end;
end;
end;
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 162
- Date d'inscription
- dimanche 19 novembre 2000
- Dernière intervention
- 14 avril 2009
Bon pour les autres pommés comme moi, j'ai fait cette petite source :
http://www.delphifr.com/codes/RECUPERE-TOUCHES-TAPES-CLAVIER_38004.aspx
http://www.delphifr.com/codes/RECUPERE-TOUCHES-TAPES-CLAVIER_38004.aspx
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.