窗口自动关闭

Question

请问
    如何让主窗口打开之前先打开一个窗口，让这个窗口打开几秒钟，然后自动关闭。   谢谢！

Answer 1

工程文件中：
      Application.Initialize;
      Form1:=TForm1.Create(Application);
      Form1.ShowModal;
      Form1.Free;
      Application.CreateForm(TMainForm,  MainForm);
      Application.Run;
窗体文件中把
　　　Form1.Visible  :=False;
　　　MainForm.Showmodal;
　　　去掉，并且在设计时，把MainForm设置为可见。 
 

Answer 2

在APPLICATION.RUN之前显示（SHOW）此窗口就可以了，在SHOW的窗口中用一记时器控件就可以控制时间关闭此窗口（HIDE，CLOSE）。

Answer 3

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.在项目文件里面写代码

Answer 4

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

Answer 5

不好吧，这样做的话，就不能答到作者的Logo窗口的目的了，是不是？
虽然显示了Logo 窗口，但是运行到Sleep(1000);等待，完了再继续执行，作Logo的原理不是这样的吧。应该是前端显示，后端继续运行，后台运行完了，关闭前端显示。

Answer 6

TO  ghbh(我想编但是编不出来) 没有，，还差几百的分 ：）