Salut,

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

Merci

Manthis

Y a-t-il un intérêt quelconque ?



-------------------------------
Réponse au message :
-------------------------------

Salut,

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

Merci

Manthis

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;



-------------------------------
Réponse au message :
-------------------------------

Salut,

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

Merci

Manthis