Delphi Animation
AnimateFloat 是 Delphi 中用于创建简单动画效果的一个函数，它可以让你平滑地改变控件的属性值，例如位置、大小、透明度等。通过指定起始值和目标值，以及动画持续时间，AnimateFloat 函数可以实现属性值的过渡动画效果。
下面是 AnimateFloat 函数的语法：
procedure AnimateFloat(const AObject: TObject; const APropertyName: string; const AValue: Single; const ADuration: Single = 0.2; const AInterpolation: TInterpolationType = TInterpolationType.Linear);
参数说明：
- AObject：需要进行动画的控件对象；
- APropertyName：需要改变的控件属性名称；
- AValue：控件属性改变后的目标值；
- ADuration：动画持续时间，单位为秒，默认为 0.2 秒；
- AInterpolation：动画插值类型，可以选择线性插值或者加速度插值。
例如，下面的代码演示了如何使用 AnimateFloat 函数实现一个按钮的透明度渐变效果：
procedure TForm1.Button1Click(Sender: TObject); begin // 在 0.5 秒内将 Button1 的透明度从 1 渐变到 0 AnimateFloat(Button1, 'Opacity', 0, 0.5); end;
这样，点击按钮后，按钮将在 0.5 秒内逐渐变得透明，直到完全消失。你可以根据需要，选择合适的属性和动画效果来创建自己想要的动画效果。
AnimateFloatDelay 是 Delphi 中用于创建动画效果的一个函数，它可以平滑地改变控件的属性值，例如位置、大小、透明度等。AnimateFloatDelay 函数可以指定延迟时间和动画持续时间，使得动画效果更加自然流畅。
下面是 AnimateFloatDelay 函数的语法：
procedure AnimateFloatDelay(const AObject: TObject; const APropertyName: string; const AValue: Single; const ADelay: Single = 0.2; const ADuration: Single = 0.2; const AInterpolation: TInterpolationType = TInterpolationType.Linear);
参数说明：
- AObject：需要进行动画的控件对象；
- APropertyName：需要改变的控件属性名称；
- AValue：控件属性改变后的目标值；
- ADelay：动画开始前的延迟时间，单位为秒，默认为 0.2 秒；
- ADuration：动画持续时间，单位为秒，默认为 0.2 秒；
- AInterpolation：动画插值类型，可以选择线性插值或者加速度插值。
例如，下面的代码演示了如何使用 AnimateFloatDelay 函数实现一个按钮的渐变效果：
procedure TForm1.Button1Click(Sender: TObject); begin // 在 0.5 秒内将 Button1 的透明度从 1 渐变到 0 AnimateFloatDelay(Button1, 'Opacity', 0, 0.5, 0.5); end;
这样，点击按钮后，按钮将在 0.5 秒内逐渐变得透明，直到完全消失。
AnimateFloatWait 是 Delphi 中用于创建动画效果的一个函数，它与 AnimateFloat 函数类似，用于平滑地改变控件的属性值，例如位置、大小、透明度等。不同之处在于，AnimateFloatWait 函数会阻塞当前线程，直到动画完成。
下面是 AnimateFloatWait 函数的语法：
procedure AnimateFloatWait(const AObject: TObject; const APropertyName: string; const AValue: Single; const ADuration: Single = 0.2; const AInterpolation: TInterpolationType = TInterpolationType.Linear);
参数说明：
- AObject：需要进行动画的控件对象；
- APropertyName：需要改变的控件属性名称；
- AValue：控件属性改变后的目标值；
- ADuration：动画持续时间，单位为秒，默认为 0.2 秒；
- AInterpolation：动画插值类型，可以选择线性插值或者加速度插值。
例如，下面的代码演示了如何使用 AnimateFloatWait 函数实现一个按钮的透明度渐变效果，并在动画完成后显示消息框：
procedure TForm1.Button1Click(Sender: TObject); begin // 在 0.5 秒内将 Button1 的透明度从 1 渐变到 0 AnimateFloatWait(Button1, 'Opacity', 0, 0.5); ShowMessage('动画完成'); end;
这样，点击按钮后，按钮将在 0.5 秒内逐渐变得透明，然后显示消息框 "动画完成"。请注意，由于 AnimateFloatWait 函数会阻塞当前线程，直到动画完成，所以在此期间用户界面可能会失去响应。建议在适当的时机使用 AnimateFloatWait 函数，以避免对用户体验产生不良影响。
AnimateInt 是 Delphi 中用于创建动画效果的一个函数，它可以让你平滑地改变整数类型属性值，例如控件位置、大小等。通过指定起始值和目标值，以及动画持续时间，AnimateInt 函数可以实现属性值的过渡动画效果。
下面是 AnimateInt 函数的语法：
procedure AnimateInt(const AObject: TObject; const APropertyName: string; const AValue: Integer; const ADuration: Single = 0.2; const AInterpolation: TInterpolationType = TInterpolationType.Linear);
参数说明：
- AObject：需要进行动画的控件对象；
- APropertyName：需要改变的控件属性名称；
- AValue：控件属性改变后的目标值；
- ADuration：动画持续时间，单位为秒，默认为 0.2 秒；
- AInterpolation：动画插值类型，可以选择线性插值或者加速度插值。
例如，下面的代码演示了如何使用 AnimateInt 函数实现一个按钮位置移动的动画效果：
procedure TForm1.Button1Click(Sender: TObject); begin // 在 0.5 秒内将 Button1 的 Left 属性从 0 移动到 100 AnimateInt(Button1, 'Left', 100, 0.5); end;
这样，点击按钮后，按钮将在 0.5 秒内向右移动，直到移动到距离左侧边界 100 像素处。你可以根据需要，选择合适的属性和动画效果来创建自己想要的动画效果。
GradientAnimation 是一个 Delphi 控件库 Firemonkey 中的控件，用于实现渐变动画效果。它可以让你轻松地创建从一个颜色到另一个颜色的过渡动画效果，并且可以通过设置不同的属性来控制动画的速度、起始颜色、终止颜色、方向等。
下面是 GradientAnimation1 的一些常用属性：
- Enabled：控制是否启用渐变动画；
- Duration：控制动画的持续时间，单位为毫秒，默认值为 250 毫秒；
- Interpolation：控制动画插值类型，可以选择线性插值、加速度插值或减速度插值；
- StartColor：控制渐变动画的起始颜色；
- StopColor：控制渐变动画的终止颜色；
- Direction：控制渐变动画的方向，可以选择水平方向或垂直方向。
例如，下面的代码演示了如何使用 GradientAnimation1 实现一个从蓝色到红色的渐变动画效果：
procedure TForm1.Button1Click(Sender: TObject);
begin
GradientAnimation1.Enabled := True;
GradientAnimation1.Duration := 1000; // 1 秒钟持续时间
GradientAnimation1.StartColor := TAlphaColors.Blue; // 起始颜色为蓝色
GradientAnimation1.StopColor := TAlphaColors.Red; // 终止颜色为红色
GradientAnimation1.Direction := TGradientDirection.Horizontal; // 水平方向渐变
end;
这样，点击按钮后，就会看到一个从蓝色到红色的水平渐变动画效果。
