新手请教一个mdi的问题????

[hudingchen]

我新建一个父窗体form1，子窗体form2,当运行程序时，form2窗体出现在form1，我想让form1运行时关闭form2，然后在菜单中的按钮点击弹出form2，如何写代码，谢谢~~~~~~~~~

[zzq4823]

Project->Option中设置Form1为MainForm(主窗体),并将Form1的Create提前.

[GARNETT2183]

我新建一个父窗体form1，子窗体form2,当运行程序时，form2窗体出现在form1
//////////////
form2出现在form1的哪里?
里面还是前面?

[hudingchen]

to:zzq4823(高原猫)：你说的“将Form1的Create提前.
”是什么意思啊？？


to:GARNETT2183(極品狼王) 我的意思是：新建一个项目，将form1的formstyle设置成父窗体，再新建一个form2,将form2的formstyle设置成子窗体，然后运行程序，下面就是我要问的了~~~

[zzq4823]

先新建一个Application,该Application就是Form1,再建一个Form,这个Form就是Form2,分别设置formstyle就OK.

[Maple119]

除form1外,将Form2从自动创建栏去掉即可.

[老之]

Form1设成主窗体，Form2先不要设成子窗体，不然一开始两个窗体会一起显示。

在按钮点击事件才加上 Form2.FormStyle:=fsMDIChild; 就可以点击显示Form2了。

[luxuewei5214]

把form2从工程中剔出，然后再Form1中uses，
在btnclick中
var
form2: TForm2;
begin
form2 := TForm2.Create(Self);
Form2.Show;
end;
在Form2中的Close事件中加
Action := caFree;
否则子窗口关不掉
离线大富翁chm版可查到好多有关资料，去大富翁看看（www.delphibbs.com）

[plokmmm]

uses
units
procedure Tform1.buttonclick(sender: Tobject)

begin
form2 := TForm2.Create(nil);
Form2.Show;
form1.close;
end;

end.