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

Question

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

Answer 1

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

Answer 2

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

Answer 3

to:zzq4823(高原猫)：你说的“将Form1的Create提前.
”是什么意思啊？？
to:GARNETT2183(極品狼王) 我的意思是：新建一个项目，将form1的formstyle设置成父窗体，再新建一个form2,将form2的formstyle设置成子窗体，然后运行程序，下面就是我要问的了~~~

Answer 4

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

Answer 5

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

Answer 6

Form1设成主窗体，Form2先不要设成子窗体，不然一开始两个窗体会一起显示。在按钮点击事件才加上 Form2.FormStyle:=fsMDIChild; 就可以点击显示Form2了。

Answer 7

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

Answer 8

uses
 units
procedure Tform1.buttonclick(sender: Tobject)
 
begin
  form2 := TForm2.Create(nil);
  Form2.Show;
  form1.close;
end;end.