Lire les touches de direction

Bonjour

j'essaie de faire un jeu (une sorte de tetris... ) avec Lazarus
Pour déplacer un objet j'utilise des tbutton qui appellent des procédures. Procédures qui font des x:=x+1; par exemple pour le bouton droit.

mais il faut cliquer sur ces boutons... et j'aimerais savoir comment appeler ces procédures en appuyant sur les flèches du clavier sans utiliser la souris.... une sorte de readkey, mais sans que le programme s’arrête..

bon je sens que ça me faire perdre des points ma question... :roll:


merci...

Salut

Pour récuperer les touches enfoncées, il te suffit d'utiliser l'evenement OnKeyDown/OnKeyUp de ta Form, en ayant préalablement mis le KeyPreview a true.

Les codes des touches fléchées sont :

VK_LEFT
VK_RIGHT
VK_UP
VK_DOWN

Bonne chance ;)

merci de la piste.

j'ai aussi trouvé ce post qui me fais penser que c'est encore une point compliqué à régler ici

Mais bon ce n'est pas la priorité j'ai encore beaucoup de choses à voir dans ce programme... que je viens de reprendre à zéro aujourd’hui...

merci en tous les cas.

Bonjour,
Pour résoudre ce problème, il suffit de faire correspondre (via l'inspecteur d'objet) cette procédure aux évènements KeyDown de tous les composants de votre form qui gèrent cet évènement :

Code:

---

1 2 3 4 5 6 7 8

procedure Tform1.Button1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_RIGHT: //procédure déplacement droit VK_LEFT: // procédure déplacement gauche VK_UP: // procédure déplacement haut VK_DOWN: // procédure déplacement bas end;

---

En effet, l'usage des touches fléchés change le focus, mais cela ne pose pas de problèmes si tous les composants réagissent de manière identique.

Il ne reste plus qu'à remplacer les commentaires par les appels aux procédures correspondantes.

Cordialement.

merci ça fonctionne parfaitement !

c'est vrai que le Tedit n'aime pas trop le focus.. alors je le force à enabled:=false le temps de tester mes touches..