如何实现登陆窗体的动态创建？

Question

program Main;uses
  Forms,
  code in 'code.pas' {Form1},
  fmcode in 'fmcode.pas' {Form2};{$R *.res}
{$R cross.res}begin
  Application.Initialize;
  Form2:=TForm2.Create(Application);
  try
    form2.Show;
    form2.Update ;
    Application.CreateForm(TForm1, Form1);
  finally
    form2.Free;
  end;
  Application.Run;
end.

Answer 1

但是，好像Form2一闪就消失了，
我根本没办法在登陆窗体Form2上面进行操作
该怎么办

Answer 2

你把那个splash设成全局变量就可以操作了
而且在上面放timer判断是否能够释放自己

Answer 3

可以加个延时，使Form2显现。

Answer 4

program Project1;uses
  Forms, Windows, //引用windows单元
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.RES}begin
  Application.Initialize;
  Form2:=TForm2.Create(Application);
  form2.Show;
  form2.Update ;
  Sleep(5000); //延时
  Application.CreateForm(TForm1, Form1);
  Form2.Hide;
  form2.Free;
  Application.Run;
end.

Answer 5

program Project1;uses
  Forms, Windows, //引用windows单元
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.RES}begin
  Application.Initialize;
  try
    Form2:=TForm2.Create(nil);
    from2.ShowModal;
    if FLogin=True then//判断登录是否成功
    begin
      Application.CreateForm(TForm1, Form1);
      Application.run;
    end 
    else
      Application.Terminate;
  finally
  form2.free;
  end;
end.