怎样制作应用程序的启动窗口？

Question

    先创建一个启动窗口(splash),设置其bordericons中的选项全为false,在工程/选项中设置splash不为自启动的,在项目文件中程序如下
  Application.Initialize;
  frmsplash:=Tfrmsplash.create(application);
  frmsplash.Show;
  frmsplash.update;
  Application.CreateForm(Tfrmmain, frmmain);
  .
  .
  . 
  Frmsplash.free;
 Application.Run;
 就行了

Answer 1

fyie的方法可以实现图片播放，要播放动画一次后关闭，你还得在Frmsplash窗口中处理何时关闭Frmsplash，并在执行Frmsplash.free前判断Frmsplash是否已关闭。

Answer 2

fyje 的例子就可以了，只要稍加处理就行了，当然可以在splash中做许多你想做的事，比如说动画播放等

Answer 3

先创建一个启动窗口(form1),设置其bordericons中的选项全为false,使它在闪现的时候只有画面，没有窗体，加入你的应用工程，在工程/选项中将form1移到右边的有效栏中，使其不为自启动的,在form1的项目文件中程序如下:(main为主工程的窗体)
  Application.Initialize;
  form1:=Tform.create(application);
  form1.Show;
  form1.update;
  Application.CreateForm(Tmain, main);
  form1.hide; 
  form.free;
Application.Run;
 That's OK!

Answer 4

  var ltime:tdatetime;
begin
  Application.Initialize;
  form2:=Tform2.Create(Application);
  form2.show;
  form2.Update;
  Application.CreateForm(TForm1, Form1);
  ltime:=gettickcount;
  while((gettickcount-ltime)/1000)<3 do //延时三秒,
  begin
  end;
  form2.Hide;
  form2.free;
  Application.Run;
给我点分吧, 我答的可以吧.  给点,