如何做封面界面?即象Photoshop一样,先出一个标志窗口,出主界面后,关上封面窗口

解决方案 »

  1.   

    program EMRP;uses
      ......{$R *.RES}
    begin
      Form_Logo := TForm_Logo.Create(Application);
      Form_Logo.Show;
      Form_Logo.Update;
      Sleep(1000);
      Form_Logo.Free;
      Application.Initialize;                                          
      Application.CreateForm(TForm_Main, Form_Main);
      Application.Run;
    end.在项目文件里面写代码
      

  2.   

    先新建一个窗体作为封面(如form).然后在项目文件中加如下代码:
      Application.Initialize;
      form:=Tform.create(application);
      form.Show;
      form.Update;
      sleep(2000);//需要显示的时间
      .......
      form.Hide;
      form.Free;
      Application.Run;