38 - DIFFERENCIER LES TOUCHES ENTER

Le petit coin du web de Nono40

http://nono40.developpez.com

SOURCES

PRÉSENTATION : Différencier les touches ENTER des pavés numériques et alphabétiques

ZIP : Téléchargez le zip

APERÇUS :

NOTES : Les évènements OnKeyDown et OnKeyup, ne permettent pas de faire cette différence. Seule l'interception des messages windows permet de faire la différence. Pour plus d'information il faut regarder l'aide en ligne sur le message WM_KEYDOWN.

CODE :

Procedure TForm1.ApplicationEvents1Message(Var Msg: tagMSG;
  Var Handled: Boolean);
Begin
  // Interception des messages 'touches ENTER appuyée'
  If (Msg.message=WM_KEYDOWN)And(Msg.wParam=VK_RETURN)
  Then Begin
    // Test du bit de touche étendue pour déterminer
    // laquelle des touches ENTER est appuyée
    If (Msg.lParam And $1000000)<>0
      Then SpinEdit2.Value:=SpinEdit2.Value+1
      Else SpinEdit1.Value:=SpinEdit1.Value+1;
  End;
End;

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.