在工程文件里写 Application.Initialize; Form_Login:=TForm_Login.Create(Application);//登陆窗口。注:登录窗口为手动创建的 with Form_Login do begin ShowModal; if not Allowlogin then begin Application.Terminate; Exit; end; end; Application.CreateForm(TForm_Main, Form_Main);//创建主form
Application.Initialize;
Form_Login:=TForm_Login.Create(Application);//登陆窗口。注:登录窗口为手动创建的
with Form_Login do
begin
ShowModal;
if not Allowlogin then
begin
Application.Terminate;
Exit;
end;
end;
Application.CreateForm(TForm_Main, Form_Main);//创建主form