怎么实现状态栏文字滚动？

[wendream]

在程序的oncreate事件中设置了状态栏的文字：

statusbar1.simpletext:='this is a test';

如何让该文字在状态栏滚动轮换显示？

分不够再加，请各位高手多多赐教哦。

[ctx62]

Raize这个控件中有你需要的控件，非常好用，不用写一行代码

[hanyi608]

没怎么用过这个空间，不过实现起来不难。

[yangxk666]

用时间控件可以实现，
statusbar1.simpletext:='this is a test';
statusbar1.simpletext:=' '+statusbar1.simpletext;
如果超出statusbar1的宽度，则删除所有空格，重新开始循环

[wendream]

[Quote=引用 10 楼 yangxk666 的回复:]
用时间控件可以实现，
statusbar1.simpletext:='this is a test';
statusbar1.simpletext:=' '+statusbar1.simpletext;
如果超出statusbar1的宽度，则删除所有空格，重新开始循环
[/Quote]

这个嘛？ 只能叫做“伪滚动”，从视觉上欺骗用户而已。不知道效率如何？
有没有效率高一点的？

[gjw310]

定时器，循环控制字的显示位置
具体网上找点代码吧

[wendream]

就是在网上没找到代码才来这里问的啊！

[Bear_hx]

是水平滚动吗？
如果是CnPack中的TCnAAMarqueeText可以满足要求，如果不想安装控件包，我有直接是从TPanel继承下来的水平滚动条。如果需要留下Email.

[wendream]

[Quote=引用 3 楼 Bear_hx 的回复:]
是水平滚动吗？
如果是CnPack中的TCnAAMarqueeText可以满足要求，如果不想安装控件包，我有直接是从TPanel继承下来的水平滚动条。如果需要留下Email.
[/Quote]
我的email:[e-mail]
我是想让状态栏中的文字水平滚动。只有一个panel。 属性simplepanel为真。

另弱弱的问一下：什么是CnPack？ 好用吗？有没有源代码？

[Bear_hx]

邮件已发，CnPack有源码，建议使用TCnAAMarqueeText，这个是没有整理的，CnPack上的是我整理之后的。

[wendream]

[wendream]

好的，我去邮箱看看。

可以加你的qq吗？

[yangxk666]

晕死

[yangxk666]

晕死

[wendream]

您的意思是用你的自定义控件代替状态栏控件？

[wendream]

不好用啊，我就只看见一个黑条在滚动。

[Bear_hx]

我的那个完全可以满足的，如果可以就给分吧。