如何做一个加载程序的窗口

Question

program BookMange;
uses
  Forms,
  Windows,
  Main in 'Main.pas' {FrmMain},
  Flash in 'Flash.pas' {FrmFlash},
  About in 'About.pas' {FrmAbout},
  InMang in 'InMang.pas' {FrmInMang},
  Login in 'Login.pas' {FrmLogin},
  Dm in 'Dm.pas' {FrmDm: TDataModule},
  DwInfo in 'DwInfo.pas' {FrmDwInfo};{$R *.res}begin
  Application.Initialize;
  FrmFlash:=TFrmFlash.Create(FrmFlash);
  FrmFlash.Show;
  FrmFlash.Update;
  Application.CreateForm(TFrmDm, FrmDm);
  Application.CreateForm(TFrmLogin, FrmLogin);
  Sleep(1000);
  FrmFlash.Hide;
  FrmFlash.Free;
  Application.Run;
end.

Answer 1

你指的是运行前出现splash窗体。
先建立一个form2，做成图片形式，然后在project菜单里选options，把form2从auto-create转到available forms 然后按ctrl+F12出现工程单元。
内容这样写。   Form2:=TForm2.Create(Application);
   Form2.show;
   Form2.Update;
   Application.CreateForm(Application);
   Form2.Hide;
   Form2.Free;
   Application.Run;
   就可以了，如果想显示加载程序的进度，加一个progressbar。

Answer 2

我是用DELPHI开发的，但没用到线程，有办法吗？

Answer 3

这个我做过，先建立一个Form，然后在project code中动态载入它再过几秒钟后隐藏即可，代码大概如下：
  Form_load:=TForm_load.Create(Application);
  Form_load.Show;
  Form_load.Update;
  ....
    Form_load.Hide;
  Form_load.Free;
  Application.Run;
时间可以通过Timer来控制。

Answer 4

不用呀，就用窗体来实现吧，上面放个图片，把边框给去了，等你RESET都完了再显示出MAIN吧，我做过，挺好！

Answer 5

上面诸位说的都有道理，Delphi的TApplication.CreateForm的Help里也有举例。我想提更进一步的要求：在最先出现的窗体里不光显示启动信息，还要几个Tedit让你输入一些全局变量的值，然后在一个“OK”按钮（TButton控件）上
单击，从而隐蔽当前窗体进入下一个窗体。
   procedure  TForm1.Button1Click(Sender:  TObject);
  begin
  while  (Edit1.text<  >  '')  And  (Edit2.text<  >  '')  And  (Edit3.text<  >  '')  And  (Edit4.text<  >  '')  Do
  begin
  CentroidLongtitude:=StrToInt(Edit1.text)+(StrToFloat(Edit2.text))/60;
  CentroidLatitude:=StrToInt(Edit3.text)+(StrToFloat(Edit4.text))/60;
  UpLeftLongtitude:=CentroidLongtitude-1.4;
  UpRightLongtitude:=CentroidLongtitude+1.4;
  DownLeftLatitude:=CentroidLatitude-1.4;
  DownRightLatitude:=CentroidLatitude-1.4;
  Form1.Visible  :=False;
  MainForm.Showmodal;
  end;
  end;
问题是，如果Form1上没有Button1和以上代码，则可以象诸位说的顺利进入下一窗体，否则出错，单击Button1后下一窗体出不来,死机。