Firemonkey中的滚动文本效果答案

【问题标题】：Scrolling text effect in FiremonkeyFiremonkey中的滚动文本效果
【发布时间】：2015-01-20 10:52:52
【问题描述】：

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

使用哪个控件并不重要，我正在寻找一种方法来了解文本何时不完全可见以及如何应用滚动效果（更准确地说，将文本缓慢地向左滚动，直到所有显示隐藏的文本并永远重复一遍）。

我使用的是 Delphi XE7.1

【问题讨论】：

也许可以从这个链接获得一些帮助，Firemonkey Marquee ScrollLabe。
@LURD 非常有趣，我会尝试一下，如果这就是我所需要的，或者几乎......我让你知道然后你发布作为答案，除非有人来更好的东西......谢谢
@LURD 和 Eduardo，但请注意页面底部的文字，说明它只能在 Windows 上正常工作。在 Android 和 iOS 上，它超越了国界。
@TomBrunberg 感谢您告诉我...实际上我也需要它在 Android 上工作。所以我需要看看结果是否可以接受。
为什么不添加备忘录？并使用 align 属性获取设备示例 align.top 或 align.bottom 的全宽。当您的空间不足时，备忘录会自行调整大小！

标签： 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

【讨论】：