如何增加登录窗口？

Question

我的程序已经编好，我想增加一个登录窗口，我在登录窗口u_login中增加了
uses u_main；为什么运行后还是先出来主窗口？请问应该怎么做才能使登录窗先出来。

Answer 1

program urls;uses
  Forms,
  one in 'one.pas' {Form1},
  Add in 'Add.pas' {Form2},
  Del in 'Del.pas' {Form3},
  SetParams in 'SetParams.pas' {Form4},
  login in 'login.pas' {Form5},
  namecode in 'namecode.pas' {Form6};{$R *.RES}var
  LoginForm:TForm5;begin
  LoginForm:=TForm5.Create(Application);
  LoginForm.ShowModal;
  if LoginForm.ModalResult=mrok then
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
    Application.CreateForm(TForm3, Form3);
    Application.CreateForm(TForm4, Form4);
    Application.CreateForm(TForm6, Form6);
    Application.Run;
  end;
end.

Answer 2

Frm_dl:=TFrm_dl.Create(Application);
  Frm_dl.Show;
  Frm_fm.Free;
  Frm_dl.Update;
   While 条件 do
   Application.ProcessMessages;
   Application.CreateForm(TFrm_Main, Frm_Main);
   Frm_dl.Free;
  Application.Run;

Answer 3

在主窗口的onshow事件中填写代码
u_login.showmodal