在delphi 5.0里如何让statusbar里面的文字从左往右或从右往左滚动啊？

Question

今天看到一个delphi的应用程序，里面的statusbar的文字从右往左滚动，
不知道是怎么实现的，

Answer 1

用定时器、空格来控制文字的位置。uses StrUtils;
var s:string;procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
    text:string;
begin
  text:=StatusBar1.SimpleText;
  StatusBar1.SimpleText:=RightStr(text,length(text)-1);
  if length(text)=length(s) then
    for i:=1 to (Form1.ClientWidth)div 6 do
    StatusBar1.SimpleText:=' '+StatusBAr1.SimpleText;
end;procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  s:=StatusBar1.SimpleText;
  StatusBar1.SimplePanel:=True;
  for i:=1 to (Form1.ClientWidth)div 6 do
   StatusBar1.SimpleText:=' '+StatusBar1.SimpleText;
end;

Answer 2

推荐用RAZECOMPONENTS组件,里面有个MARQUEESTATUS

Answer 3

RAZECOMPONENTS这套组件哪里可以下载到啊？

Answer 4

这是什么单元？
我的delphi 5.0里面没有：（