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

最新推荐文章于 2023-06-16 18:58:18 发布

原创最新推荐文章于 2023-06-16 18:58:18 发布 · 2.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#愤怒小鸟 #firemonkey #弹跳 #动画

FMX 专栏收录该内容

24 篇文章

订阅专栏

博客展示了愤怒小鸟相关的效果图，涉及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;