Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
38 - DIFFERENCIER LES TOUCHES ENTER

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 et 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.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -