如何让一个系统的主界面出来前，出现一个比较漂亮的界面。

Question

如何让一个系统的主界面出来前，出现一个比较漂亮的界面。并且让他停留5秒钟后，自动消失，然后出现主界面。

Answer 1

在主界面的OnCreate 事件里写Loginform := TLoginform.Create(nil);
Loginform.ShowModal;
Sleep(n);//n是延时时间
Loginform.free;

Answer 2

估计还要加上头文件。他不认识Sleep(n）；如何解决？

Answer 3

program splashin;  //这个是dpr那个文件uses
  Forms,
  main in 'main.pas' {Form1},   //这是你的主窗口
  splash in 'splash.pas' {splashform};   //这是你的用来办有型的那个漂亮界面{$R *.res}begin
  splashform :=tsplashform.Create(application);
  splashform.Show;
  splashform.Update;
  application.createform(tform1,form1);//这是真正的当form1创建完了，才close那界面 
  splashform.close;
  Application.Run;
end.如果程序很小，想看清效果，可以在form1那里做手脚procedure TForm1.FormCreate(Sender: TObject);
xxxxxx

Answer 4

你是想做一个封面吧？
给你一个完整的程序program splashin;  //这个是dpr那个文件uses
  Forms,
  main in 'main.pas' {Form1},   //这是你的主窗口
  splash in 'splash.pas' {splashform};   //这是你的用来办有型的那个漂亮界面{$R *.res}begin
  splashform :=tsplashform.Create(application);
  splashform.Show;
  splashform.Update;
  splashform.sleep(2000)//两秒，可以自己设定
  application.createform(tform1,form1);//这是真正的当form1创建完了，才close那界面 
  splashform.free;
  Application.Run;
end.
 需要注意一点事，要在project options里设定splashform为手动创建

Answer 5

在delphi的帮助里面有一个更好的例子，关于进度条。

Answer 6

怎么“只好养条狗”的里面的注释这么象我的  ¬ ¬
                                      -

Answer 7

我有个问题，请问splashform :=tsplashform.Create(application);
  splashform.Show;
  splashform.Update;
  splashform.sleep(2000)//两秒，可以自己设定
  application.createform(tform1,form1);//这是真正的当form1创建完了，才close那界面 
  splashform.free;
  Application.Run;
end.在以上的这个程序段中，你们为什么要用SPLASHFORM。UPDATE呀！！！不是用SPLASHFORM。SHOW就可以了么？？？
请帮我解释解释！！