Delphi-时间的显示

下面的代码为在控件中显示本地时间，并为时间添加动态效果

procedure TForm1.Timer1Timer(Sender: TObject);

var

mytime:TdateTime;

begin

  mytime:=Now;

  statusbar1.Panels[5].Text :=datetostr(mytime)+' '+timetostr(mytime);

   //或直接用 statusbar1.Panels[5].Text:= datetimetostr(Now);

  label1.caption := datetimetostr(Now);

  if label1.Width+label1.Left<=0 then       //字幕滚出 Form1

    label1.Left:=panel2.Width              //字幕重新从下方显示出来

  else

    label1.Left:=label1.Left-1;           //字幕向上移动

  label1.Left:=label1.Left-6;

end;