怎么让程序在运行后马上显示两个窗体
在一个project.dpr下有两个窗体文件，form1，form2，其中form1为默认主窗体，现在我想在运行后同时显示这两个窗体，应该怎么做？不希望通过在form1设置按钮来改变...

[解决办法]
在主窗体form1onShow时，让form2显示出来

procedure TForm1.FormShow(Sender: TObject);
begin
form2.Show;
end;

[解决办法]
1，在主窗体的onactivate里
showmodal
2，Oncreate 发消息创建一个窗体