问一个简单的问题像DELPHI启动画面怎么实现的 以前发过很多贴可没注意谢谢了！！

Question

最好给例子 和源码

Answer 1

Form_LOGO := TForm_LOGO.Create(Application);
  Form_LOGO.Show;
  Form_LOGO.Update;
  Application.Initialize;
  Application.CreateForm(TForm_MAIN, Form_MAIN);
  Application.CreateForm(TForm_hkxx, Form_hkxx);
  Application.Run;

Answer 2

program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
  Unit2 in 'Unit2.pas' {Form1};{$R *.res}begin
  Form2 := TForm2.Create(Form2);  //创建启动窗口
  Form1.Show;                     //显示启动窗口
  Form2.Update;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form1.Hide;                     //隐藏启动窗口
  Form2.Free;                     //释放启动窗口
  Application.Run;
end.

Answer 3

在delphi ide Project菜单下选择'view source'看到的是.dpr的工程文件，
会看到类似
  Application.Initialize;
  Application.CreateForm(TForm_MAIN, Form_MAIN);
  Application.Run;
这样的代码
然后在这里创建登录窗口，代码如下（借用weitao999的代码）
  Application.Initialize;
  Form_LOGO := TForm_LOGO.Create(Application);
  Form_LOGO.Show;
  Form_LOGO.Update;
  Application.CreateForm(TForm_MAIN, Form_MAIN);
  Form_Logo.hide;
  Form_Logo.Close;
  Application.Run;
在form_Main的formcreate事件里写上sleep(1000);
就能看到form_logo在主窗体显示之前显示了

Answer 4

Project－>View Source
////////////////////////////////////////////////////////
var
  StopTime:Cardinal;
begin
  frmSplash:=TfrmSplash.Create(Application);
  frmSplash.Show;
  frmSplash.Update;
  //延时处理
  StopTime:=GetTickCount;
  while ((GetTickCount-StopTime)/1000 < 2) do;
  frmSplash.Free;
  //下面是
  Application.Initialize;
  ...
//////////////////////////////////////////////////////////////

Answer 5

在delphi ide Project菜单下选择'view source'看到的是.dpr的工程文件，
会看到类似
  Application.Initialize;
  Application.CreateForm(TForm_MAIN, Form_MAIN);
  Application.Run;
这样的代码
然后在这里创建登录窗口，代码如下（借用weitao999的代码）
  Application.Initialize;
  Form_LOGO := TForm_LOGO.Create(Application);
  Form_LOGO.Show;
  Form_LOGO.Update;
  Application.CreateForm(TForm_MAIN, Form_MAIN);
  Form_Logo.hide;
  Form_Logo.Close;
  Application.Run;
在form_Main的formcreate事件里写上sleep(1000);
就能看到form_logo在主窗体显示之前显示了