mdiapp.dpr

来自「清华大学物理实验室 - 仪器管理系统 能实现实验室中多项数据的保存,插入,删除等」· DPR 代码 · 共 37 行

program Mdiapp;

uses
  Forms,
  Main in 'MAIN.PAS' {MainForm},
  child_lab in 'child_lab.pas' {frm_YQ_Lab},
  Chind_Address in 'Chind_Address.pas' {frm_Address},
  Child_Code in 'Child_Code.pas' {frm_Code},
  Child_Borrow in 'Child_Borrow.pas' {frm_Borrow},
  prt_lab in 'prt_lab.pas' {frm_Prt_Lab},
  prt_Letter in 'prt_Letter.pas' {frm_prt_letter},
  About in 'About.pas' {frm_About},
  Child_Sort in 'Child_Sort.pas' {frm_Sort},
  Child_Chart in 'Child_Chart.pas' {frm_Chart},
  Child_Chart1 in 'Child_Chart1.pas' {frm_Chart1},
  Child_Chart2 in 'Child_Chart2.pas' {frm_Chart2},
  SplashForm in 'SplashForm.pas' {Splash};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := '仪器管理系统 1.0';
   { 创建封面 }
  Splash := TSplash.Create(Application);
  Splash.Show;   // 显示封面
  Splash.Update; // 强制更新封面
  { 下面通过定时器来延时}
  while Splash.Timer1.Enabled do
    Application.ProcessMessages;   //让程序循环不断处理消息，直到定时器被禁止为止
  Application.CreateForm(TMainForm, MainForm);
   {主窗口显示出来后，隐藏并释放封面}
  Splash.Hide;
  Splash.Free;
  Application.Run;
end.