Discussion :

[joreveur]

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


merci...

[mick605]

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

[joreveur]

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.

[Modulpro]

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 :

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

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.

[joreveur]

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