Voici un petit exemple pour faire "Sauter" un bouton :
Var VitesseX:Real;
VitesseY:Real;
PosX :Real;
PosY :Real;
procedure TForm1.Button1Click(Sender: TObject);
begin
VitesseX := 2;
VitesseY := -10;// Vitesse initiale du saut ( élan )
PosX :=0;
PosY :=ClientHeight-Button2.Height;
Timer1.Enabled :=True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// La vitesse horizontale est constante
PosX:=PosX+VitesseX;
// La vitesse verticale évolue linéairement
PosY:=PosY+VitesseY;
VitesseY:=VitesseY+0.3;
Button2.Top := Round(PosY);
Button2.Left := Round(PosX);
If PosY>(ClientHeight-Button2.Height) Then Timer1.Enabled:=False;
end; |
---
Nono40@fr.st
---
Nouveau --->
Nono40.fr.st-------------------------------
Réponse au message :
-------------------------------
> Bijour!
>
> J'ai fait un jeu, a la mario. j'aimerais savoir si quelqu'un a un bon moyen de faire sauter le personnage (C'est une image). Peut etre avec un Timer....
>
> Merci bcp!
>
> Lanosic