问一个字幕滚动的问题

Question

我想做成这么一个功能。我想从数据库里得到最新的消息，可能是多条的，做成那种带超连接的字幕滚动，因该怎么做。

Answer 1

AAFont 平滑特效字体控件包 V2.60CnPack 开发组管理员 与月共舞 个人作品。
平滑特效字体控件包是一个基于平滑（Anti-aliasing）和特效（Effect）字体技术的控件包，支持透明、半透明、阴影、模糊、渐变色、字体纹理、噪声、轮廓字等特效。
该控件包为开放源码的免费控件包！
http://www.delphibox.com/article.asp?articleid=1342

Answer 2

循环取值(你的字段)，再用timer来滚动

Answer 3

AAFont 平滑特效字体控件包 V2.60，这个我看了，无法打开网页，因为我想做成那种，网页的那种字幕滚动，可以点击相关纪录，打开一个网页连接。

Answer 4

简单写了一个例子，给你参考吧，数据库的也可以根据这方法来实现：
var
  Form1: TForm1;
  i:integer=-1;
implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
    i:=i+1;
    label1.Caption:=memo1.Lines[i];
    if i=memo1.Lines.Count then i:=-1;
     label1.Top:=label1.Top-20;
     if label1.Top<10 then label1.Top:=380;
end;