panel中放一个label显示字符,怎样使字符来回滚动?

Question

   做了一个login界面,想用来回滚动字符,但怎么想也不能来回滚动.现在的代码只能向右边滚动,代码如下:
with Label3 do begin
       left:=left+10;
       if left>=panel2.Width-width
       then left:=-width;
    end;那位大侠帮忙改一下,能够使label的字符,先在这谢谢了.

Answer 1

var
  iDir : Integer;procedure TForm1.FormCreate(Sender: TObject);
begin
  iDir := 10;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with Label1 do
  begin
    Left := Left + iDir;
    if (Left >= Panel1.Width - Width - Abs(iDir)) or (Left <= Abs(iDir)) then iDir := -iDir;
  end;
end;