Discussion :

[TheGoldViking]

Une question toute bête...

J'utilise un évènement onKeyPress, et je veux tester si la touche sur laquelle l'utilisateur appuie est le backspace.

J'ai regardé en débogage le code char de la touche backspace, et il me semble que c'est '#8' mais quand je teste :

Code :

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

if (key = '#8')

ca ne fonctionne pas...

Me serais-je trompé sur le code char??
Si oui, la question est quel est le code char de cette touche...?

[portu]

Fais le plutôt pas l'évenement OnKeyDown (ou Up)

Code :

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

1
2
 
If Key = VK_SPACE then

Apparement, le code char est #32

[TheGoldViking]

Fais le plutôt pas l'évenement OnKeyDown (ou Up)

Le pb, c'est que 'Key' n'est plus un char mais un word, et que je ne sais pas trop comment on gère la chose...

Apparement, le code char est #32

Ca ne fonctionne pas non plus...

[Reisubar]

Code :

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

1
2
3
4
5
6
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_BACK then
    beep;
end;

[TheGoldViking]

Ok.
Merci à vous, portu et Reisubar, j'ai réussi à faire marcher mon code.

Mais pour mon information personnelle, qqun connaitrait le code char de bakspace?? (ou le moyen de faire le test dans la propriété onKeyPress??)

[Reisubar]

Code :

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

1
2
3
4
5
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #8 then
    Beep;
end;

Ce code marche très bien chez moi... Je pense que c'est les apostrophes autour du #8 dans ton code que Delphi apprécie pas ;-)

[TheGoldViking]

Je pense que c'est les apostrophes autour du #8 dans ton code que Delphi apprécie pas

Effectivement, c'était bien ça le pb...
On va dire que c'est à force de passer du c++ au pascal...

merci Reisubar!!