delphi statusbar里的文字上下滚动？

Question

delphi statusbar里的文字上下滚动？
麻烦给出参考代码，谢谢。
或者再问下 里面的文字可以实现单击事件吗，多个分割的情况下。

Answer 1

将要显示的文字拆分成数组
定时器里按照下标的顺序，显示某个部分，这样看起来就是上下滚动的了。