怎么打开子菜单？？？up也有分！！

Question

form2.show（form2是子菜单，form1是父菜单）
procedure TForm1.ew1Click(Sender: TObject);
begin
      form2.show;;//运行就死，怎么回事？解决一下，谢了//
end

Answer 1

这样写就可以了：
procedure TForm1.ew1Click(Sender: TObject);
begin
  form2:=TForm2.Create(nil);
  form2.show;
end

Answer 2

UPprocedure TForm1.ew1Click(Sender: TObject);
begin
  form2:=TForm2.Create(nil);
  form2.show;
end

Answer 3

可能是窗口没有建立的原因。
form2:=TForm2.Create(nil);试试。
不过如果是这个原因的话，编译的时候，应该会报错的。

Answer 4

form2:=TForm2.Create(nil);
  form2.show;

Answer 5

form2:=TForm2.Create(self);//也行？//
  form2.show;

Answer 6

form2:=TForm2.Create(self);
try
  form2.showmadol;
finally
  form2.free;
end;