Discussion :

[bleuerouge]

Bonjour,
J'utilise le composant XSTringGrid et je dois vérifier le contenue qui est inscrit dans un EditCellEditor, pour cela je dois vérifier le caractère tapé depuis l'événement AllowEndEditEvent dont voici le prototype :

Code :

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

1
2
3
 
procedure TForm1.EditCellEditor3AllowEndEditEvent(Sender: TObject;
  var Key: Word; Shift: TShiftState; var EndEdit: Boolean);

Mon problème est que la variable Key , qui représente le caractère n'est pas un char mais un word , et je n'arrive pas a faire la conversion correcte quelqu'un aurai t il une idée ?
Merci d'avance

[Gilbert Geyer]

Salut,

Les valeurs numériques des codes virtuels (vk_Up, etc du type Word) correspondent au code ASCII lorsque la touche possède un code ASCII et le code virtuel des lettres et des caractères numériques est égal à leur code ASCII : il n'y a pas de vk_A mais le code virtuel du A est 65, celui du 0 est 48
... donc pour la conversion monChar:=chr(Key : Word);

A+

[bleuerouge]

Salut,

Les valeurs numériques des codes virtuels (vk_Up, etc du type Word) correspondent au code ASCII lorsque la touche possède un code ASCII et le code virtuel des lettres et des caractères numériques est égal à leur code ASCII : il n'y a pas de vk_A mais le code virtuel du A est 65, celui du 0 est 48
... donc pour la conversion monChar:=chr(Key : Word);

A+

Bonjour, cela ne marche malheureusement pas ,lorsque j'appuie sur un chiffre du pavé numérique, j'ai un code d'une lettre ou d'un symbole au lieu d'avoir le code du chiffre tapé , ...

[Paul TOTH]

Bonjour, cela ne marche malheureusement pas ,lorsque j'appuie sur un chiffre du pavé numérique, j'ai un code d'une lettre ou d'un symbole au lieu d'avoir le code du chiffre tapé , ...

oui comme dans OnKeyDown...tu n'as pas un évènement équivalent à OnKeyPress ?

[Rayek]

Tu fais comme cela alors

Code :

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

1
2
3
4
5
6
 
Case Key of
  VK_NUMPAD0 .. VK_NUMPAD9: MonChar := chr(Key - 48);
  else
  MonChar := chr(Key);
end;

[bleuerouge]

Tu fais comme cela alors

Code :

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

1
2
3
4
5
6
 
Case Key of
  VK_NUMPAD0 .. VK_NUMPAD9: MonChar := chr(Key - 48);
  else
  MonChar := chr(Key);
end;

Bonjour,
Cela marche pour les nombre ,seulement le point (.) n'est pas supporté , n'y a t il pas une fonction permettant la conversion directe ?

[Rayek]

A ma connaissance non, car la tu parles en termes de touches et non pas en termes de caractères.

Fait un sur VK_NUMPAD0 tu auras la liste de toutes les touches du clavier.