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

[magellannull]

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 显示。

[shuihan20e]

这个需要修改一下工程文件就能实现
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;

[magellannull]

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;

-----------------------------------------------------------------

[kugoo_2006]

用showModal程序不能再往下执行