急 ！ ！ ！ ！ ！ ！ ！ ！ ！多个链接的跑马灯实现方法。解决办法

急！ ！ ！ ！急！ ！ ！ ！急！ ！ ！ ！多个链接的跑马灯实现方法。
如题，在窗体的底部实现多个链接的跑马灯，其内容如果能实现从数据库提取更好了，谢谢！！！

[解决办法]
字串在低部用StatusBar移动可参考:
http://topic.csdn.net/t/20030510/22/1766696.html
字串从数据库中取,应该很简单的吧

[解决办法]

Delphi(Pascal) code

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls;type  TForm1 = class(TForm)    Label1: TLabel;    Label2: TLabel;    Timer1: TTimer;    procedure Label1Click(Sender: TObject);    procedure Timer1Timer(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure Label2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;  x,y:Integer;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);beginx:=Label1.Left;y:=Label2.Left;end;procedure TForm1.Label1Click(Sender: TObject);begin //这里可以添加链接代码end;procedure TForm1.Label2Click(Sender: TObject);begin   //这里可以添加链接代码end;procedure TForm1.Timer1Timer(Sender: TObject);beginLabel1.Left:=Label1.Left-2;Label2.Left:=Label2.Left-2;if Label1.Left<0-Length(Label1.Caption) thenbegin  Label1.Left:=x;end;if Label2.Left<0-Length(Label2.Caption) thenbegin  Label2.Left:=y;end;end;end.