很简单,在dpr文件中写一些代码就可以了。
begin
Application.Initialize;
Form2 := TForm2.Create(Application);
Form2.ShowModal;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
begin
Application.Initialize;
Form2 := TForm2.Create(Application);
Form2.ShowModal;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
application.initialize;
form2:=tform2.create(application);
form2.show;
form2.update;
application.createform(tform1.form1);
form2.hide;
form2.free;
application.run;
就可以了,一定要给我分!!!!
Application.Initialize;
Form2 := TForm2.Create(Application);
Form2.ShowModal;
Form2.free;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;