两个窗体的问题，

Question

工程里有两个窗体，拿form1做登陆窗体，当确定后，form1关闭，form2显示出来，
写成form2.show不行，form2不出来，form1就关了。高人指点一下，谢了

Answer 1

program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};{$R *.res}begin
  Application.Initialize;
  try
    form2:=Tform2.Create(application);
    form2.ShowModal ;
  finally
   if form2.Button1.ModalResult =1 then
     Halt
   else
   begin  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm2, Form2);
  application.Run;
  end;
  end;
end.procedure TForm2.Button1Click(Sender: TObject);
begin
 //在此之前天加数据验证
   self.ModalResult :=mrOk;end;procedure TForm2.Button2Click(Sender: TObject);
begin   self.Button1.ModalResult:=mrcancel;
   exit;
end;end.

Answer 2

把Form2设成工程的主窗体，在
 Form2::OnShow() 
   里 Form1.ShowModal;