Delphi 文字跑马灯

 //跑马灯

 procedure Tfr_Main.tme_TitleTimer(Sender: TObject);

 var

   strTrim: Widestring;

 begin

   strTrim := copy(strScroll, , ); // 获取第1个字符

   Delete(strScroll, , ); // 将第1个字符删除

   strScroll := strScroll + strTrim; // 将原来第1个字符放到最后一位

   Application.title := strScroll; // 显示出来。

   Self.Caption := strScroll; // 显示出来。

 end;