在主程序中先显示登陆窗口。成功再show出主窗口。怎么主窗体一出现程序也就停止了呢。我是这样写的。请问为什么会这样呢。谢谢
var
SF:TStartUpForm;
LF:TLoginForm;
T:TForm2;
begin
Application.Initialize;
SF:=TStartUpForm.Create(Application);
SF.Show;
SF.Update;
Application.CreateForm(TDM, DM);
Application.CreateForm(TCommon, Common);
LF := TLoginForm.Create(nil);
SF.Hide;
SF.Free;
LF.ShowModal;
if(LF.ModalResult = mrOK) then
begin
T := TForm2.Create(nil);
T.Show;
end;
Application.Run;
var
SF:TStartUpForm;
LF:TLoginForm;
T:TForm2;
begin
Application.Initialize;
SF:=TStartUpForm.Create(Application);
SF.Show;
SF.Update;
Application.CreateForm(TDM, DM);
Application.CreateForm(TCommon, Common);
LF := TLoginForm.Create(nil);
SF.Hide;
SF.Free;
LF.ShowModal;
if(LF.ModalResult = mrOK) then
begin
T := TForm2.Create(nil);
T.Show;
end;
Application.Run;
如果是T.Show;
改为T.ShowModal
工程文件怎么写的乱七八糟的。登陆窗体在主窗体的onshow事件上面showmodal方便点
begin
Application.Initialize;
Application.CreateForm(TLoginForm, LoginForm);
LoginForm.ShowModal;
{isLogin是全局变量 ,确认在登录窗体里用户已经成功登录,否则退出程序.}
if islogin then
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else Application.Terminate;
end.