程序运行时，主窗体不可见，而是显示登录窗体，登录成功后再显示主窗体，如何做？

Question

如题

Answer 1

方法很多，1 在主窗体的OnCreate事件中显示登陆窗口;2 在工程文件中创建主窗体前显示登陆窗口;... ...

Answer 2

program XSGL;uses
  Forms,
  MainFrmU in 'Source\MainFrmU.pas' {MainFrm},
  PublicUnt in 'Public\PublicUnt.pas',
{$R *.res}begin
  Application.Initialize;
  Application.Title := '销售管理';  PublicOpt := TPublicOpt.Create; if not PublicOpt.DBConnectionYN then
  begin
     PublicOpt.Free;
     Exit;
  end;  With TLoginFrm.Create(nil) do
    try
      ShowModal;
    finally
      Free;
    end;
  if PublicOpt.Logoned then
  begin
    Application.CreateForm(TMainFrm, MainFrm);
  Application.CreateForm(TFaceFrm, FaceFrm);
  Application.CreateForm(TPrintOrder, PrintOrder);
  Application.CreateForm(TSellEmpProList, SellEmpProList);
  Application.Run;
 end;
  
  PublicOpt.Free;//看看上面的代码应该知道。。

Answer 3

begin
  Application.CreateForm(TDM1, DM1);
  if Flag_Exit <> '0' then
  begin
    frmXXXXX:=tfrmXXXXX.create(application);
    frmXXXXX.showmodal;
    if frmXXXXXl.modalresult <> X then
    begin
        Application.Initialize;
        Application.Title := '电力系统招标程序及招标文件制作与管理系统';
        Application.CreateForm(TFrmMain, FrmMain);
        Application.Run;
    end else
    begin
       if dm1<> nil then dm1.Free;
       if frmXXXXX <> nil then frmXXXXX.free;
       Application.Terminate;
    end;
  end else
  begin
      if dm1<> nil then dm1.free;
      Application.Terminate;
  end;
end.

Answer 4

简单的说是LOGO窗口。
（1）将form组件属性bordericons的每项设成false，borderstyle选择bssingle。
（2）将程序写在project source内，且在最前面。
   Application.initialize;
   Try
      form2:=Tform2.Create(Application);
      form2.show;
      form2.Update;
      //工程自动打开一般form.
      Application.CreateForm(Tform1,form1);
      Application.CreateForm(Tform3,form3);
    Finally
      form2.free;//释放LOGO窗口
    end;
    Application.Run;