⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 prjbumu.dpr

📁 布幕表单
💻 DPR
📖 第 1 页 / 共 2 页
字号:
🔍
12 
program prjbumu;

uses
  Forms,
  untbumu in 'untbumu.pas' {frmbumu},
  untform1 in 'untform1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;

  frmbumu:=Tfrmbumu.create(Application);
  frmbumu.show;

  {为使布幕有足够长的显示时间,
    重复加入如下语句}
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;//不断刷新布幕
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
  frmbumu.Update;
  Application.CreateForm(TForm1, Form1);
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -