Forme Hexa des virtual key codes

Signaler
Messages postés
40
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
2 octobre 2006
-
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
-
Salut,

Je voudrais savoir comment ecrire la valeur hexa des virtual key codes.

Merci

Manthis

2 réponses

Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
26
Y a-t-il un intérêt quelconque ?
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
26
Utiliser la function IntToHex (deux implémentations possibles) :

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//Autoriser la touche BackSpace
if Key = vk_back then
begin
inherited;
key:=0;
end
else
//Afficher le code en hexa dans Edit2 sur 3 digits
Edit2.text:=Edit2.Text + ' ' + IntToHex(Key, 3);
end;