一步一步学习使用FireMonkey动画：使用TAnimator类创建动画
FireMonkey（FMX）是Embarcadero Delphi和C++Builder中强大的跨平台UI框架，其动画系统灵活且高效。在FMX中，TAnimator类是一个静态工具类，专门用于快速创建和管理动画，无需手动实例化动画对象。本文将通过实战代码示例，带你从零掌握TAnimator的使用方法。## 什么是TAnimator？TAnimator是FMX中一个轻量级的静态类，位于FMX.Ani单元。它提供了一系列静态方法，用于对控件（或任何TFmxObject）的属性执行动画。与传统方式（如创建TAnimation对象）相比，TAnimator简化了代码，特别适合快速实现简单的动画效果。核心方法包括： - AnimateFloat：对浮点型属性执行动画。- AnimateColor：对颜色属性执行动画。- AnimateInt：对整型属性执行动画。- StopPropertyAnimation：停止指定属性的动画。## 基础示例：让按钮平滑移动第一个例子演示如何使用TAnimator.AnimateFloat让一个按钮在窗体上平滑移动。pascalunit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Ani, // 引入Ani单元 FMX.StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.fmx}procedure TForm1.Button1Click(Sender: TObject);begin // 使用TAnimator.AnimateFloat，目标控件是Button1 // 参数：控件、属性名（字符串）、目标值、持续时间（秒）、动画类型、插值类型 TAnimator.AnimateFloat(Button1, 'Position.X', 200, 1.0, TAnimationType.&In, TInterpolationType.Cubic); // 同时让按钮透明度变为0.5 TAnimator.AnimateFloat(Button1, 'Opacity', 0.5, 0.5);end;end.**代码说明：**1. 需要手动在uses中添加FMX.Ani单元。2. AnimateFloat的第一个参数是控件对象，第二个参数是属性名称（字符串形式），第三个参数是目标值。3. 动画时间以秒为单位，这里Position.X动画持续1秒，Opacity动画持续0.5秒。4. 可选参数包括动画类型（TAnimationType）和插值类型（TInterpolationType），默认是线性插值。运行后点击按钮，按钮会向右移动并逐渐变透明。## 进阶示例：颜色渐变与并行动画第二个例子展示如何使用AnimateColor实现背景色渐变，并结合多个AnimateFloat调用实现并行动画。pascalunit Unit2;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Ani, FMX.StdCtrls, FMX.Objects; // Rectangle控件type TForm2 = class(TForm) Rectangle1: TRectangle; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form2: TForm2;implementation{$R *.fmx}procedure TForm2.Button1Click(Sender: TObject);begin // 1. 颜色动画：从当前颜色渐变为红色 TAnimator.AnimateColor(Rectangle1, 'Fill.Color', $FFFF0000, 1.5); // 2. 并行动画：同时旋转和缩放 // 旋转45度 TAnimator.AnimateFloat(Rectangle1, 'RotationAngle', 45, 1.0, TAnimationType.&In, TInterpolationType.Back); // 缩放至1.5倍 TAnimator.AnimateFloat(Rectangle1, 'Scale.X', 1.5, 1.0); TAnimator.AnimateFloat(Rectangle1, 'Scale.Y', 1.5, 1.0); // 3. 停止之前可能存在的动画（防止多次点击冲突） // 注意：StopPropertyAnimation需要指定属性名 // 这里演示停止Opacity的动画（如果有） // TAnimator.StopPropertyAnimation(Rectangle1, 'Opacity');end;end.**代码说明：**1. AnimateColor专门处理颜色属性，目标颜色使用十六进制$FFFF0000（红色）。2. 多个AnimateFloat调用会同时执行，形成并行动画效果。3. TInterpolationType.Back会制造一个"回弹"效果，使旋转更生动。4. 注释部分展示了StopPropertyAnimation的用法，可用于重置动画或防止冲突。## TAnimator的实用技巧### 1. 动画链式调用虽然TAnimator是静态类，但你可以利用TAnimation的OnFinish事件实现链式动画。例如，在第一个动画完成后启动第二个：pascalvar Anim: TFloatAnimation;begin Anim := TFloatAnimation.Create(nil); try Anim.Parent := Button1; Anim.PropertyName := 'Position.X'; Anim.StartValue := Button1.Position.X; Anim.StopValue := 200; Anim.Duration := 1.0; Anim.OnFinish := procedure(Sender: TObject) begin // 链式：完成后改变颜色 TAnimator.AnimateColor(Button1, 'TextSettings.FontColor', $FF00FF00, 0.5); end; Anim.Start; finally // 注意：动画对象会被自动管理，无需手动释放 end;end;### 2. 动画速度控制TAnimator的AnimateFloat方法没有直接提供速度曲线参数，但可以通过TAnimationType和TInterpolationType组合实现不同效果：- TAnimationType.&In：慢速开始，快速结束。- TAnimationType.&Out：快速开始，慢速结束。- TAnimationType.&InOut：两头慢中间快。- TInterpolationType.Cubic：三次插值，更平滑。- TInterpolationType.Bounce：弹跳效果。### 3. 注意事项- 属性名是大小写敏感的，且必须是FMX动画支持的属性（如Position.X、Opacity、RotationAngle等）。- 多次调用同一属性的动画会覆盖之前的动画，而不是排队执行。- TAnimator内部使用TAnimation对象，但生命周期由FMX自动管理，无需手动释放。## 总结通过本文的实战代码示例，我们学习了如何使用FireMonkey的TAnimator类快速创建动画。TAnimator的核心优势在于代码简洁、易于上手，适合实现大多数简单到中等复杂度的UI动画。关键要点包括：1. 使用AnimateFloat对数值属性（位置、透明度、缩放等）进行动画。2. 使用AnimateColor对颜色属性进行渐变。3. 多个AnimateFloat调用可同时执行，实现并行动画效果。4. 结合TAnimationType和TInterpolationType可以定制动画曲线。对于更复杂的动画逻辑（如链式、条件分支），建议直接使用TAnimation子类或TAnimator配合事件回调。掌握TAnimator后，你可以在跨平台应用中轻松添加平滑、专业的动画效果，提升用户体验。