Question

delphi 状态栏如何加入滚动字幕。

Answer 1

1. 把要滚动的字幕写到一个Label的Caption属性上，Label放到你要进行滚动效果的地方，这里以 Label2 为例。

2. 然后在窗口中放置一个 Timer 名为 Timer1 ，Enabled属性设True，Interval属性值设100 。

3. 在 Timer1 的 OnTimer 事件中写如下代码：

label2.Left := label2.Left+10;
if label2.Left+10>Self.ClientWidth then label2.Left := 0-label2.Width;

运行，看效果自行微调。