scrolltext.txt

ScrollText_V1.0-自动字幕控件

    前些天在论坛上看到某位老兄在寻找“自动字幕”控件，当时我手头上有一个两年前写
的滚动字幕控件，不过只能由右向左滚动，而且还有问题；我也找到过一个文字滚动控件，
但效果也不是太好。那时我就想自已重写一个，恰好第二天晚上灵感忽来，我发现可以利用
TCustomLabel来实现，于是便有了这个TScrollText“自动字幕”控件。
    要注意的是，如果你觉得闪动比较厉害，那就将ScrollText的父控件之DoubleBuffered
属性置为True，例如将ScrollText放在窗体上，则在窗体创建的时候加上DoubleBuffered:=
True即可。
    其实很多时候换个角度思考问题，往往有意想不到的收获^o^
    我传上来的包里有Delphi6及CBuilder60的安装包，实际上所附的ScrollText源码支持
D5/D6/BCB5/BCB6，D7估计也是支持的，不过我没试过。
    为简单起见，该控件默认安装在Standard面板上。
    祝你愉快！
    sky 2005.2.19 晚写于上海