大虾们，请问如何实现statusbar中的字能够滚动？

谢谢！

解决方案 »

  1.   

    应该不难！用一循环加一Trimer就可以了！
      

  2.   

    放Ttimer组件，在里面写上一循环事件
      

  3.   

    2重循环，最里面的一层往statusbar里面的panel逐个拷贝信息。
    外面的循环循环显示。
      

  4.   

    //自己稍微改改，I全局变量，初始值为0
    //Str全局变量，你要显示的字符串。例如Str:='Hello World!';
    procedure TMainForm.Timer1Timer(Sender: TObject);
    begin
      Label1.Caption:=Label1.Caption+Str(I);
      Inc(I);
      if I=Length(Str)+1 then
      begin
        Label1.Caption:='';
        I:=1;
      end;
    end;
      

  5.   

    你可以让你的StatusBar里的文字在最前或者最后加空格的方式它显示出来的效果就是动了