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;