Discussion :

[engi]

Salut,

J'ai un soucis avec la surcharge de la méthode KeyDown dans un composant de ma création.
Un appui sur n'importe quelle touche standard du clavier provoque bien le passage par ma fonction surchargée.
En revanche, toutes les touches spéciales (telles que les flèches de direction) ne passent pas par ma fonction.
Aurais-je loupé quelque chose ?

[kurul1]

Tu peux nous mettre le code de ta fonction pour qu'on voit

[engi]

dans le .h :

Code :

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

1
2
 
DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);

dans le .cpp :

Code :

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

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

void __fastcall TMyGrid::KeyDown(Word &Key, Classes::TShiftState Shift)
{
   int tch;
   bool autoriser_touche = false;

   tch = (int)Key;

   if (tch == VK_SPACE) //touche ESPACE -> caractère suivant dans le cycle (simulation double-clic)
   {
      DblClick();
      return;
   }
   else if (tch == VK_LEFT) //touche FLECHE GAUCHE -> se déplacer sur la cellule à gauche de celle en cours
   {
      Selected = Selected - 1;
      return;
   }
   else if (tch == VK_RIGHT) //touche FLECHE DROITE -> se déplacer sur la cellule à droite de celle en cours
   {
      Selected = Selected + 1;
      return;
   }

   //refuser la touche en fonction du cycle en cours
   switch (CycleType)
   {
      case ccWiegand:
         autoriser_touche = (tch == 46) || (tch == 48) || (tch == 49) || (tch == 68) || (tch == 100) || (tch == 80) || (tch == 112) || (tch == 73) || 					(tch == 105) || (tch == 88) || (tch == 120);
      break;

      case ccClockData:
      case ccDallas:
         autoriser_touche = (tch == 46) || ((tch >= 48) && (tch <= 57)) || ((tch >= 65) && (tch <= 70)) || ((tch >= 97) && (tch <= 102)) || (tch == 88) || (tch == 120);
      break;
   }

   if (!autoriser_touche)
   {
      Beep();
      return;
   }
   else
   {
      //mise en majuscule
      AnsiString Portion = AnsiString(Key).UpperCase();
      //mettre à jour la cellule courante et la règle
      FCelluleValue[Selected] = Cycle.Pos(Portion);
      FRegle[Selected+1] = Portion[1];
      Invalidate();
   }
}

Information supplémentaire : mon composant est dérivé d'un TCustomControl.

[engi]

Je continue mes tests et ça ne fonctionne toujours pas.
Par contre, j'ai une certitude : le problème n'est pas lié au code contenu dans la fonction.
J'ai remplacé tout le code par un simple Beep.
Quand j'appuie sur les touches standard ou même la barre d'espace, le son est bien joué.
Par contre, quand j'appuie sur une flèche ou sur tabulation, aucun son et le focus est déplacé au contrôle suivant sur la fiche.

Ma question : comment intercepter un appui sur les flèches ou sur la touche tabulation ?

[kurul1]

Je ne sais pas que cela peut venir de ca mais ta ligne

Code :

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

1
2
 
tch = (int)Key;

est inutile

tu peux directement tester avec la valeur de Key

As-tu mis un message au début de ta fonction avant de tester les touches juste pour voir si la fonction est déclanché pour toutes les touches ?

[blondelle]

Salut engi
Deja je te conseillerais de lire ce Tuto

http://tcharles.developpez.com/simul/

Un bout de code simplifie sur la fleche haute et basse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key == VK_DOWN)
{
ShowMessage("Fleche en BAS");
}
if(Key == VK_UP)
{
ShowMessage("Fleche en HAUT");
}
}

[engi]

Salut blondelle,
merci pour ton lien. je ne savais pas bien ce qu'est un hook et j'en ai donc profité pour m'instruire.
par contre, pour le reste, le probleme n'est pas tellement de tester la valeur de key (avec VK_DOWN ou VK_UP) mais le fait qu'un appui sur les flèches ne provoquent pas le passage par mon événement keydown alors que c'est le cas de presque toutes les autres touches.

[engi]

Je m'obstine pour essayer de comprendre.
J'ai surchargé la méthode WndProc de la façon suivante :

Code :

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

1
2
3
4
5
6
void __fastcall TMyGrid::WndProc(Messages::TMessage &Message)
{
   if (Message.Msg == WM_KEYDOWN)
      Beep();
   TCustomControl::WndProc(Message);
}

Même constat : si j'appuie sur une touche standard, j'entends bien le bip.
Par contre, si j'utilise la tabulation ou les flèches, pas de bip !

[henderson]

Salut !

TMyGrid dérive de quelle classe ?

A plus !

[engi]

Dérivé d'un TCustomControl

[engi]

enfin, j'ai trouvé

voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TMyGrid::WndProc(Messages::TMessage &Message)
{
	if (Message.Msg == WM_GETDLGCODE)
	{
		WMGetDlgCode(Message);
		return;
	}
 
	TCustomControl::WndProc(Message);
}
//---------------------------------------------------------------------------
 
void __fastcall TMyGrid::WMGetDlgCode(TMessage& Message)
{
	Message.Result = DLGC_WANTARROWS;
}

Avec ça, ma fonction KeyDown reçoit bien les touches virtuelles correspondant aux flèches.

Merci de l'intérêt que vous avez porté à ce post.