运行到Tfrm_login.Create(self)时陷入死循环!求解!!

Question

下面是一个当主窗体启动时,首先打开"登陆"对话框,代码如下:
unit frm_mainu; //主窗体
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  Tfrm_main = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frm_main: Tfrm_main;
implementation
uses loginu;
{$R *.dfm}
procedure Tfrm_main.FormCreate(Sender: TObject);
begin
   Tfrm_login.Create(self);             <========问题在于此,运行到此行时,程序进入死循环,无法运行,请多指教 ,
end;
end.unit loginu;  //登陆窗体,程序运行时最先出现interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frm_mainu,StdCtrls;type
  Tfrm_login = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  frm_login: Tfrm_login;implementation{$R *.dfm}procedure Tfrm_login.Button1Click(Sender: TObject);
begin
frm_main.Show;
self.Close;
end;end.program xqwy; //uses
  Forms,
  frm_mainu in 'frm_mainu.pas' {frm_main},
  loginu in 'loginu.pas' {frm_login};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(Tfrm_main, frm_main);
  application.ShowMainForm:=False;
  Application.Run;
end.

Answer 1

你frm_login还没show呢。。
procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  frm_login:=Tfrm_login.Create(self); 
  frm_login.Show;
end;

Answer 2

用1楼的先看看，，，你要先创建，在show..

Answer 3

procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  Tfrm_login.Create(self); <========问题在于此,运行到此行时,程序进入死循环,无法运行,请多指教 ,
//不是死循环，是没有显示的问题。
end;
end.