begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
或:在菜单上选择project->options->mainform中选form2
例如:
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Form2.showmodal;
Application.Run;
end
解决方法如下:
project->options->把auto-create-forms中的form2加到availabble forms中
然后在project|view source加入代码如下:
form2:=Tform2.Create(application);
form2.show;
form2.update;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
//form2.hide;//隐藏
//form2.Free;//释放
Application.Run;
调试通过,问题是这样吧?
我已经找出原因了。如果你建两个窗体,第一个建立的窗体的Visible就会自动变为flase!
这样就会先执行CreateForm2,再执行Form1.show
是我多事,把Form1的Visible改为True,结果是先执行Form1.show...
大家可以试试,是这样吧