修改工程文件:
Application.Initialize;
Application.CreateForm(TmainForm, mainForm);
Application.ShowMainForm:= False;
if LoginForm.ShowModal then
begin
Application.ShowMainForm := True;
Application.Run;
end
else
begin
Application.Terminate;
end;
修改工程文件:
Application.Initialize;
Application.CreateForm(TmainForm, mainForm);
Application.ShowMainForm:= False;
if LoginForm.ShowModal then
begin
Application.ShowMainForm := True;
Application.Run;
end
else
begin
Application.Terminate;
end;