为什么Form1没有隐藏起来

august010148

  Application.CreateForm(TForm1, Form1);

  Form1.Hide;

  Application.CreateForm(TForm2, Form2);
  Form2.Show;

august010148

搞定了
功能定义：
为了实现启动画面功能，我设置了Form1, Form2
Form1是主窗口，Form2显示启动信息。
启动时，Form1.Hide; Form2.Show;
点击Form2.button1
Form1.Show;Form2.Close;

Project文件的代码，设置了应用程序如何启动：
在project1.lpr中，写入如下代码
begin
  RequireDerivedFormResource := True;
  Application.Initialize;

  Application.CreateForm(TForm1, Form1);//创建Form1,先创建的为主窗口

  Application.ShowMainForm:= False;     //主窗口显示设置

  Application.CreateForm(TForm2, Form2); //创建Form2
  Form2.Show;            // 首先显示Form2 When start-up, show the brand

  Application.Run;       //运行程序
end.

逍遥派掌门人

august010148:搞定了
功能定义：
为了实现启动画面功能，我设置了Form1, Form2
Form1是主窗口，Form2显示启动信息。
启动时，Form1.Hide; Form2.Show;
....... (2012-10-17 00:54) 

这种方法也可以

samsam598

这个是Mastering Delphi 7列举的两个方法之一。当主窗体启动加载很多东东，比较慢时，这个比较合适，不用计时器控制，主窗体初始化完成后闪屏自动消失：

3. procedure TAboutBox.MakeSplash;
4. begin
5.   BorderStyle := bsNone;
6.   BitBtn1.Visible := False;
7.   Panel1.BorderWidth := 3;
8.   Show;
9.   Update;
10. end;
12. ...
13. var
14.   SplashAbout: TAboutBox;
15.    
16. begin
17.   Application.Initialize;
18.    
19.   // create and show the splash form
20.   SplashAbout := TAboutBox.Create (Application);
21.   try
22.     SplashAbout.MakeSplash;
23.     // standard code...
24.     Application.CreateForm(TForm1, Form1);
25.     // get rid of the splash form
26.     SplashAbout.Close;
27.   finally
28.     SplashAbout.Free;
29.   end;
30.    
31.   Application.Run;
32. end.

复制代码

cgh_chen

先创建Form2不就得了

august010148

先创建Form2也可以
但有个小问题，先创建的是主窗口，
1、Form2.Close;会退出主程序
2、关闭Form1退出程序时，要在OnClose里，写上Application.Terminate;
否则，程序不会退出