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

winfredzhang

于 2019-05-06 21:27:35 发布

阅读量2.2k

点赞数

分类专栏： FMX 文章标签：愤怒小鸟 firemonkey 弹跳动画

本文链接：https://blog.csdn.net/winniezhang/article/details/89886992

版权

FMX 专栏收录该内容

24 篇文章 1 订阅

订阅专栏

效果图如下：

代码：

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;