Bonjour à tous
J'ai oublié comment attendre l'entrée de n'importe quelle touche avec Application.ProcessMessages !
Je veux faire un While [attendre la touche] do Application.processMessages !
merci![]()
Bonjour à tous
J'ai oublié comment attendre l'entrée de n'importe quelle touche avec Application.ProcessMessages !
Je veux faire un While [attendre la touche] do Application.processMessages !
merci![]()
en mode console ou en mode fiche ?
[ Sources et programmes de Dr.Who | FAQ Delphi | FAQ Pascal | Règlement | Contactez l'équipe ]
Ma messagerie n'est pas la succursale du forum... merci!
Normalement le principe c'est plutôt de gérer les évènements (style onClick). Quand on en est à faire un While [attendre la touche] do Application.processMessages c'est qu'on s'est trompé quelque part dans la structure du logiciel. Bon je te rassure ça m'est déjà arrivé.
Tu veux faire quoi exactement ?
Bonjour,
si ton programme est fenêtré, affecte la propriété KeyPreview de ta fiche à true et regarde du coté des Evènements OnKeyPress, OnKeyDown etOnKeyUp.
Si par exemple t'a pas de fenêtre, disons entre le begin et end de ton programme principal, utilise :
de cette, manière tu évite de faire une attente active et ton processeur sera soulagé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 ... var Msg: tagMsg; begin while GetMessage(Msg, 0,0,0) do case Msg.message of WM_XXX1: ;// traite ton message 1 WM_XXX2: ;// traite ton message 2 ... end end.
+1 khaled!
à voir :
message and message queue reference
http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx
GetMessage function
http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx
TranslateMessage function
http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx
DispatchMessage function
http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx
[ Sources et programmes de Dr.Who | FAQ Delphi | FAQ Pascal | Règlement | Contactez l'équipe ]
Ma messagerie n'est pas la succursale du forum... merci!
Partager