设计时有两点

FloatAnimation和PathAnimation都应该是Rectangle的子级，Rectangle是一个条。

将FloatAnimation PropertyName属性设置为Rectangle的Position.Y属性，这将更改值。

可以在对象检查器中设置代码中描述的FloatAnimation属性，但是在此示例中，将它们描述为比较技巧。

unit Unit3;

interface

uses

  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,

  FMX.Objects, FMX.Layouts, FMX.Controls.Presentation, FMX.Ani;

type

  TForm3 = class(TForm)

    Button1: TButton;

    Layout1: TLayout;

    Layout2: TLayout;

    Button2: TButton;

    Rectangle1: TRectangle;

    Panel1: TPanel;

    FloatAnimation1: TFloatAnimation;

    PathAnimation1: TPathAnimation;

    Button3: TButton;

    FloatAnimation2: TFloatAnimation;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { private 宣言 }

    mCnt: Integer;

  public

    { public 宣言 }

  end;

var

  Form3: TForm3;

implementation

{$R *.fmx}

procedure TForm3.Button1Click(Sender: TObject);

begin

// 1 Down 

  if mCnt > 4 then Exit;  // 上Down 

  mCnt := mCnt + 1;

  FloatAnimation2.Stop;                              

  FloatAnimation2.Duration := 2;

  FloatAnimation2.StartValue := Rectangle1.Position.Y + 0;  // 始点

  FloatAnimation2.StopValue := Rectangle1.Position.Y + 50;  // 終点

  FloatAnimation2.Start;                                    // 開始

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

// New One ボタン動作

  FloatAnimation1.Stop;                                   

  FloatAnimation1.Duration := 1;

  FloatAnimation1.StartValue := -250;                      // 始点

  FloatAnimation1.StopValue := 150;                        // 終点 

  FloatAnimation1.Start;                                   // 開始

  mCnt := 0;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

//1 Down Bound 

  if mCnt > 4 then Exit;  

  mCnt := mCnt + 1;

  PathAnimation1.StopAtCurrent;                           // 終了

  PathAnimation1.Start;                                   // 開始

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

  mCnt := 0; //初期化

  PathAnimation1.Create(Self);

  PathAnimation1.Path.MoveTo(PointF(0,50));  // 移動范围指定

  PathAnimation1.Path.LineTo(PointF(0,10));  // 途中座標指定

  PathAnimation1.Path.LineTo(PointF(0,50));  // 途中座標指定

  PathAnimation1.Path.LineTo(PointF(0,20));  // 途中座標指定

  PathAnimation1.Path.LineTo(PointF(0,50));  // 途中座標指定

  PathAnimation1.Path.LineTo(PointF(0,30));  // 途中座標指定

  PathAnimation1.Path.ClosePath;             // 座標指定終了

  PathAnimation1.Duration := 2;

end;

end.

在FloatAnimation的情况下，该值只能在一个方向上更改，因此，如果要以相同的方式使其反弹，

设置坐标从0到50并开始，停止

设置坐标从50到10并开始，停止

设置坐标从10到50并开始，停止

设置坐标从50到20并开始，停止

设置坐标从20到50并开始，停止

设置坐标从50到30，然后开始，停止

设置坐标从30到50并开始，停止

在

使用PathAnimation的情况下，您必须编写代码（或使用上述设置准备FloatAnimation并按顺序进行操作），指定要使用MoveTo首先移动的范围，并使用LineTo在该范围内进一步移动。对于

此示例，您可以将坐标指定为

使用MoveTo指定从0到50的移动

如果在此移动过程中有要移动的坐标，请使用LineTo指定多个坐标（即使坐标偏离MoveTo指定的坐标）

指定所有坐标后，使用ClosePath完成坐标的指定。

指定此运动需要持续多长时间

要使用它，只需启动创建的PathAnimation

它可以用来做头动作