请教 ！ 如何用Delphi 7 实现类似于 PLSQL 登录窗口，把主窗体设置为Auto-create form

Question

1. 启动的背景图片窗体  FRM_BG     
2. 登陆验证窗口        FRM_LG
3. 主窗体              FRM_MAIN 程序启动 FRM_BG 以渐现效果加载,然后 FRM_LG 加载， FRM_BG和FRM_LG 同时存在,当FRM_LG输入用户名密码验证通过，关闭FRM_BG和FRM_LG 。FRM_MAIN 显示。  

Answer 1

这个需要修改一下工程文件就能实现
    Application.Initialize;
      Frm_BG:=TFrmBG.Create(nil);
      Frm_BG.Show;
      Frm_BG.Update;
      //sleep(10000);    
      Frm_BG.Free;
      Frm_LG.ShowModal;  //验证，不通过不会显示主窗体
      frm_main.Show;
      Application.Run;

Answer 2

program test;uses
  Forms,  main in 'app\main.pas' {Frm_Main},
  Background_frm in 'app\Background_frm.pas' {Frm_Main_Bground},
  Login_frm in 'app\Login_frm.pas' {Frm_Main_Login};{$R *.res}
begin
  Application.Initialize;
  Frm_Main_Bground := TFrm_Main_Bground.Create(Application);
  Frm_Main_Bground.ShowModal; if Frm_Main_Bground.GetValue then
 begin
     Application.Title := 'test';
     Application.CreateForm(TFrm_Main, Frm_Main);
     Application.Run; end;end.
-----------------------------------------------------------------------var
  Frm_Main_Bground: TFrm_Main_Bground;
  i:byte;
  value:Boolean;
implementation
uses
    Login_frm;{$R *.dfm}function TFrm_Main_Bground.ShowLoginFrm:Boolean ;
begin
    Frm_Main_Login.Show; //ShowModal 后为什么在这里不能再 SHOW ????? SHOW 就报错
    if Frm_Main_Login.GetValue=True then   value:=True;
    Result:=True;
end;-----------------------------------------------------------------

Answer 3

用showModal程序不能再往下执行