program project1;uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2};{$R *.res}var l: boolean; begin Application.Initialize; l:= false; Application.CreateForm(TForm2, Form2); // 在Form2里如果通过,就设置 l:= true; Form2.Showmodal; Form2.Free; if l then begin Application.CreateForm(TForm1, Form1); Application.Run; end else Application.Terminate; end.
在工程文件里面
application.initialze;
application.createform(tform1,form1);
form1.show;
application.creatform(tform2,form2);
form2.showmodal;
application.run;
form1是主窗体,form2是登陆窗体,在form2中如果登陆成功的话就就可以form2.close;如果退出的话可以使用application.terminate;退出。
program project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}var
l: boolean;
begin
Application.Initialize;
l:= false;
Application.CreateForm(TForm2, Form2); // 在Form2里如果通过,就设置 l:= true;
Form2.Showmodal;
Form2.Free;
if l then
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end else Application.Terminate;
end.