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

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

编辑#1：

---

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

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

---

用你的按钮准备一张png图像（最好是3张3比例的图像）

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

将其放入TImageList（通常在全局数据模块中），在列表中添加图像，并向源图像添加3个比例因子（双击ImageList中“图像源”列表中的项目），这样TImageList中的一个图像将具有3个比例因子。 将TGlyph放在表单上，并在那里选择您的图像列表

在表单OnCreate中设置OnClick事件（因为Glyph1在对象检查器中默认没有OnClick）：

在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绘制带抗锯齿的圆形+图像+阴影。

---

但是它比简单的图像慢。

是的，我们可以。您需要手动处理所有浮动行为。我建议只使用本机浮动按钮。这很简单，也节省了您的开发时间。感谢您的重播，您说的“仅使用本机浮动按钮”是什么意思？他们已经提供了浮动按钮，那么您为什么要使用自定义方法实现同样的效果？好的，等等，我在RADstudio中找不到一个类似android浮动按钮的按钮组件，所以我想我需要自己实现它（这就是为什么我说“自定义”）是的，你可以，只需自己在表单顶部绘制它。

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