怎样可以使窗体标题文字来回滚动，在线等待

Question

怎样可以使窗体标题文字来回滚动

Answer 1

用一个timer
在ontimer事件中，加空格
if length(form1.caption) < 40 then
form1.caption := '  ' + form1.caption;
else
form1.caption := '重来';

Answer 2

在一个TIMER 的事件里改变就行了。比如FORM1.CAPTION:='12345';
                 :='51234';
                 :='45123';当然,需要一些算法,你肯定没问题的.

Answer 3

procedure TForm1.Timer1Timer(Sender: TObject);
var str:string;
begin
      str:='Form1';
      if length(form1.caption) > 40 then
      form1.caption :=str
      else
      form1.caption := '  ' + form1.caption;
end;

Answer 4

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
i:=1;     //定义一次移动多少字符
caption:=rightstr(caption,length(caption)-i)+leftstr(caption,i);
end;如果要使用中文自已再改进吧.