cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 15 févr. 2002 à 22:08
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;