按F7运行,到工程代码页如下2个表单的 将要最先启动的表单放到第二行 program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin Application.Initialize; Application.CreateForm(TForm2, Form2);//将Form2也就是你要首先启动的移到该处保存即可 Application.CreateForm(TForm1, Form1); Application.Run; end.
提示出错如下: project project1.exe raised exception class einvalidoperation with message' cannot create form. No MDI forms are curredtly active'.process stopped.use step or run to continue.
program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin Application.Initialize; Form2 := TForm2.Create(Application); Form2.Show; Form2.Update; Form2.Hide; Form2.Free; Application.CreateForm(TForm1, Form1); Application.Run; end.
要是MDI则采用其他方法,搜寻下,很多的
懒虫的方法基本不错: program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin Application.Initialize; Form2 := TForm2.Create(Application); try Form2.ShowModal; // <==== 在Form2中检查登入信息 finally Form2.Free; end; Application.CreateForm(TForm1, Form1); Application.Run; end.
将要最先启动的表单放到第二行
program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);//将Form2也就是你要首先启动的移到该处保存即可
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
project project1.exe raised exception class einvalidoperation with message'
cannot create form. No MDI forms are curredtly active'.process stopped.use step or run to continue.
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
Application.Initialize;
Form2 := TForm2.Create(Application);
Form2.Show;
Form2.Update;
Form2.Hide;
Form2.Free;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
Application.Initialize;
Form2 := TForm2.Create(Application);
try
Form2.ShowModal; // <==== 在Form2中检查登入信息
finally
Form2.Free;
end;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.