//跑马灯
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;
05-11 15:53