怎么让程序在运行后马上显示两个窗体

[cenge455]

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

[cenge455]

但是我没有自己去定义form1的onshow[Quote=引用楼主 的回复:]
在一个project.dpr下有两个窗体文件，form1，form2，其中form1为默认主窗体，现在我想在运行后同时显示这两个窗体，应该怎么做？不希望通过在form1设置按钮来改变...
[/Quote]

[cenge455]

但是我没有自己去定义form1的onshow[Quote=引用 1 楼 的回复:]

在主窗体form1onShow时，让form2显示出来

procedure TForm1.FormShow(Sender: TObject);
begin
form2.Show;
end;
[/Quote]

[该用户很帅]

1，在主窗体的onactivate里
showmodal
2，Oncreate 发消息创建一个窗体

[cenge455]

非常感谢2位，1L说的我已经清楚了，在onshow事件里创建出FormShow，然后如1L所写...看来得到了方向就应该试着去动手

[kaikai_kk]

在主窗体form1onShow时，让form2显示出来

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