Firemonkey : OnKeyDown problème avec la touche Espace
Bonjour à tous
Je suis en train de m'arracher les cheveux et je ne comprend pas pourquoi cela ne fonctionne pas.
J'ai définit ma méthode OnKeyDown pour détecter les appuis de touches
Je voudrais déclencher quelque chose lorsque l'utilisateur appuie sur Espace
J'ai donc fait ceci
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
|
// Méthode déclanclée lorsque l'on presse une touche du Clavier
void __fastcall TPrincipaleForm::OnKeyDown(TObject *Sender, WORD &Key, System::WideChar &KeyChar,
TShiftState Shift)
{
ShowMessage("Touche " + String(Key));
ShowMessage("TexteTouche " + String(KeyChar));
// Si la touche pressée est Espace
if(Key == vkSpace)
{
ShowMessage("Espace est pressé");
}
else
{
if(Key == vkReturn)
{
ShowMessage("Entrée est pressé");
}
else
{
ShowMessage("Autre touche");
}
}
} |
Lorsque j'appuie sur espace, j'ai autre touche qui s'affiche alors que pour entrée pas de problème.
Je ne comprend pas d'ou peut venir le soucis
Je développe sous RAD Studio XE7 en firemonkey
Merci d'avance pour votre aide
