Discussion :

[CharleLéo]

Bonjour,


Est ce que quelqu'un pourrait me dire comment dans un formulaire, on attende que l'utilisateur appuie sur une touche clavier pour que l'appli passe au traitement suivant ?

style repeat until keypressed

J'ai pensé au meesage, mais j'ai pas mal de lacune dans ce domaine.

merci
a+

[Sub0]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function KeyPressed: Boolean;
Var x: Byte;
Begin
  Result := True;
  For x := 0 To 255 Do
    If ((GetAsyncKeyState(x) And 32768) <> 0) Then Exit;
  Result := False;
End;

Exemple de boucle de base :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Repeat
  Application.ProcessMessages;
  Sleep(100);
Until(KeyPressed);

• Application.ProcessMessages sert à traîter la liste des messages windows, sinon, le système se bloque pendant la boucle.
• Sleep(100) sert à définir la priorité de la boucle par rapport au autres threads.
Plus le délai ajouté est grand, moins la boucle consomme de ressources.

à+


Lien tout en bas à gauche de cette fenêtre

[CharleLéo]

Meric beaucoup

a+