想在应用程序下面加入一行动态的文字,如利用Javasprict那样~当我们浏览网页时,最底下有几个文字,从左向右一次通过~~~~并按时间间隔依次进行!!!
我知道在应用程序中,放入一个Bevel控件~~那代码怎么写呢~~~
请高手指点~~~
谢谢了!!~

解决方案 »

  1.   

    我的方法是通过增减字符间的空格来实现的。
    aa:='hello'
    开始时,aa:='h'+N个空格+'ello'
            aa:='h'+(N-1)个空格+'ello'
            .......        
            aa:='he'+N个空格+'llo' ;
            aa:='he'+(N-1)个空格+'llo'
            .......         
      

  2.   

    我的用timer,然后逐个拷贝粘贴字符。
    Str为字符串,I为循环变量(初始值为1),都为全局变量procedure TMainForm.Timer1Timer(Sender: TObject);
    begin
      //******************************动态显示提示字幕****************************//
      Label1.Caption:=Label1.Caption+Str[I];
      Inc(I);
      if I=Length(Str) then
      begin
        Label1.Caption:='';
        I:=1;
      end;
    end;