用于delphi fmx应用程序的Android浮动按钮

Question

我想知道是否可以实现一个自定义按钮（在使用 RADstudio 开发的 FMX 应用程序中），其行为类似于 Android 浮动按钮。

浮动按钮（Android 文档）

编辑 #1：使用 RadStudio 10.4.x，我现在可以将 TButton 的属性 StyleLookup 设置为“transparentcirclebuttonstyle”，并且使用 TCircle 我可以绘制一个看起来像 Android 浮动按钮的按钮。

Answer 1

更新：顺便说一句，您可以将 SpeedButton 与此圆形图像一起使用，因此您可以跳过下面的一些例程。

---

使用您的按钮准备一个 png 图像（最好是 3 个具有 3 个比例的图像）。

Scale 1 = 56x56
Scale 2 = 112x112
Scale 3 = 168x168

将其放入 TImageList（通常在全局 Datamodule 中），将您的图像添加到列表中，并为源图像​​添加 3 个比例因子（双击 ImageList 中“图像源”列表中的项目），因此 TImageList 中的一个图像将有 3比例因子。 将 TGlyph 放在表单上并在那里选择您的图像列表。

在 Form OnCreate 中设置 OnClick 事件（因为 Glyph1 在 Object Inspector 中默认没有 OnClick）：

Glyph1.OnClick := Click;
Glyph1.HitTest := true; 

在 OnClick 中添加此代码以设置动画：

procedure TForm2.TestClick(Sender: TObject);
begin
  TAnimator.AnimateFloatWait(Glyph1, 'Opacity', 0.5, 0.2);
  TAnimator.AnimateFloat(Glyph1, 'Opacity', 1, 0.2);
end;

或者你可以使用 TImage - 它比上面的更容易和更少的代码。

您也可以使用 NativeAPI 在 Android/iOS 上使用 Firemonkey 绘制带有抗锯齿功能的圆形 + 图像 + 阴影。 http://www.cnblogs.com/onechen https://github.com/rzaripov1990/ZMaterialComponents但它比简单的图像慢。