Discussion :

[bvsud]

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

[Dr.Who]

en mode console ou en mode fiche ?

[philnext]

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

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 ?

[khaled-benloucif]

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 :

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.

de cette, manière tu évite de faire une attente active et ton processeur sera soulagé.

[Dr.Who]

+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

[bvsud]

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 :

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.

de cette, manière tu évite de faire une attente active et ton processeur sera soulagé.

C'est très bien Merci Khaled.