Delphi Firemonkey中的滚动文本效果

有时我需要为用户呈现一条消息，消息的长度大于可用空间

无论使用哪个控件，我都在寻找一种方法来知道文本何时不完全可见，以及如何应用滚动效果以更精确地向左缓慢滚动文本，直到所有隐藏的文本显示出来，并永远重复

---

我正在使用Delphi XE7.1，使用标准RTL控件在Delphi XE7中滚动字幕：

procedure TForm1.Button1Click(Sender: TObject);
begin
 FloatAnimation1.Enabled := True;
 FloatAnimation1.StartValue := Form1.Width;
 FloatAnimation1.StopValue := 0-Label1.Width;
end;


object Label1: TLabel
AutoSize = True
Position.X = 240.000000000000000000
Position.Y = 232.000000000000000000
Size.Width = 37.000000000000000000
Size.Height = 16.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
Text = 'Label1'
object FloatAnimation1: TFloatAnimation
  Duration = 1.000000000000000000
  Loop = True
  PropertyName = 'Position.X'
  StartValue = 0.000000000000000000
  StartFromCurrent = True
  StopValue = 0.000000000000000000
end
end
object Button1: TButton
 Position.X = 248.000000000000000000
 Position.Y = 312.000000000000000000
 TabOrder = 1
 Text = 'Button1'
 OnClick = Button1Click
end

---

也许这个链接会给我一些帮助，@LURD非常有趣，我会尝试一下，如果这是我所需要的全部，或者几乎。。。。我让你知道，然后你张贴作为答案，除非有人来了更好的东西。。。thanks@LURD爱德华多，注意页面底部的文字，它说它只能在Windows上正常工作。在Android和iOS上，它超越了国界。@TomBrunberg感谢您让我知道。。。事实上，我也需要它在Android上工作。所以我需要看看结果是否可以接受。你为什么不加一份备忘录呢？并使用align属性获取设备的全宽，例如align.top或align.bottom。当你用完空间时，备忘录会自动调整大小！