16行代码实现“愤怒的小鸟“中的效果（firemonkey）

效果图如下：

代码：

var
  AniType: TAnimationType;
  InterpType: TInterpolationType;
begin


  FloatAnimation1.Parent := self.image1;
  FloatAnimation1.PropertyName := 'Position.X';
  FloatAnimation1.StopValue := image1.Position.X + 200;     //Rectangle1
  FloatAnimation1.Duration := 5;



  FloatAnimation2.Parent := self.image1;
  FloatAnimation2.PropertyName := 'Position.Y';
  FloatAnimation2.StopValue := image1.Position.Y + 200;     //Rectangle1
  FloatAnimation2.Duration := 5;
 


  AniType :=TAnimationType.Out;;
  FloatAnimation2.AnimationType := AniType;
  InterpType :=TInterpolationType.Bounce;
  FloatAnimation2.Interpolation := InterpType;
  FloatAnimation1.Start;
  FloatAnimation2.Start;