Ce code permet de forcer le type "Clavier numérique" dans le code d'entrée de champ.

//Entrée de champ Téléphone :
EM_SETINPUTMODE = 0x00DE
IM_NUMBERS = 2
SendMessage( Handle(SAISIE1), EM_SETINPUTMODE, 0, EIM_NUMBERS )