有关窗体显示的傻瓜问题。一经解决，马上送分！！！！！

Question

我想要在 软件启动后便显示四个窗口，我已经实现了同时显示三个窗体，但是在我要显示第四个窗体时，并没有得到我要的效果。

Answer 1

在project单元里写
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  form1.Show;
  Application.CreateForm(TForm2, Form2);
  form2.Show;
  Application.CreateForm(TForm3, Form3);
  form3.Show;
  Application.CreateForm(TForm4, Form4);
  form4.Show;
  Application.Run;
end.
可以吗？

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2, Unit3, Unit4;{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
  form2.Show;
  form3.Show;
  form4.Show;
end;end.

Answer 3

先启动一个住窗体 frmmain
在project单元里写
begin
  Application.Initialize;
  Application.CreateForm(TfrmMain，frmMain)
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.//
procedure TfrmMain.FormShow(Sender: TObject);
var
.....
begin
  form1:=Tform1.create(Application);
  form1.Show;
  form2:=Tform2.create(Application);
  form1.Show;
  form3:=Tform3.create(Application);
  form3.Show;
end;