启动窗口，在线等待，谢！

Question

当一个程序启动时，会出现一个启动窗口。程序启动起来之后，那个窗口就自动消失！请问这个启动窗口是如何实现的，里面一概加入什麽控件，我刚开始学，请大家说详细一点，谢谢大家！

Answer 1

放一幅好看的图片，+一个timer,到事件后关闭窗体，程序继续
        Application.Initialize;
        FrmSplash := TFrmSplash.Create(application);//启动窗体
        FrmSplash.show;
        FrmSplash.Update;
        while FrmSplash.TmTimer1.Enabled do
         application.processmessages;
        Application.Title := 'XXXX';
        Application.CreateForm(TFrmMain, FrmMain);
        Application.CreateForm(TFrmReg, FrmReg);
        FrmSplash.hide;
        FrmSplash.free;
        Application.Run;

Answer 2

呵呵你找本DelPhi的书籍上面一般都会有说的！1.新建一窗体，名为splash，上面放一Timage控件（加图片）。
2.菜单Project->Option 选Form 项，将splash 移到右面（双击即可）！
代码：
工程文件里：program splashshow;uses
  Forms,
  windows,
  main in 'main.pas' {mainform},
  splashform in 'splashform.pas' {Splash};{$R *.res}begin
  Application.Initialize;
  Splash:=Tsplash.Create(Application);
  // 创建splash窗体
  splash.Show;
  // 显示开始窗口。
  splash.Update;
  // 强制显示开始窗口画面。
  Sleep(2000);
  // 延时两秒。
  Application.CreateForm(Tmainform, mainform);
  splash.Hide;
  // 隐藏开始窗口。
  Splash.Free;
  //释放开始窗口。
  Application.Run;
end.

Answer 3

Application.Title := 'XXXX';Application.CreateForm(TFrmReg, FrmReg);请问这两句话是什麽意思？上面这些代码是写到timer控件的timer事件里吗

Answer 4

insert2003(高级打字员) 您好，我看到他们做的窗体上面有一个状态条，它是随着工程的启动，长度逐渐加大，请问这个如何实现？谢谢

Answer 5

Application.Title := 'XXXX';Application.CreateForm(TFrmReg, FrmReg);
--------------------------------------------------------------------
Application.Title := 'XXXX';//应用程序的标题！
如：
Application.Title := '我的程序';Application.CreateForm(TFrmReg, FrmReg);//创建窗体在启动窗口上置一ProgressBar控件。
具体设置，嘿嘿，多看看书

Answer 6

其实就是一个form你先显示它，然后销毁再显示mian就行了。

Answer 7

我也有和shepengtao(爱花) 一样的想法，是不是可以在启动窗体显示的时候,主窗体开始在后台运行(进行初始化工作)，那位大侠能帮忙解决一下，谢谢！