Bonjour, quelqu'un aurait-il rencontré un problème avec l'utilisation de la fonction ord() dans le keypress d'un DBEdit. Le source ci-dessous ne fonctionne pas lors de la frappe de la touche Entrée ou de la touche Tab !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
// Vérification des caractères
procedure TFMAE912Form.M_MTMVTKeyPress(Sender: TObject; var Key: Char); 
begin
  case Ord(key) of
  9 : begin
       Valider_912.SetFocus;
       end;
  13 : begin
       Valider_912.SetFocus;
       Valider_912Click(sender);
       end
  else verif_mt(key);
  end; // end case
 
end;
Merci de votre aide !