两个窗口显示问题

Question

在第一个以showmodal方式显示的窗口中，点击其中的按钮，以showmodal方式显示第二个窗口，关闭该窗口时，第一个窗口也随之关闭了。何故？请各位指教！

Answer 1

不会阿
是不是你在第二个窗口的onclose事件中添加了什么代码？
比如
  application.Terminate;

Answer 2

在第二个窗口的onclose事件中添加了什么代码
一、  第一个窗口.close;
二、application.terminate;

Answer 3

只要在最后窗口中在其onclose事件中写入即可：
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  form2.close;
  form1.Close;
end;

Answer 4

procedure Tform1.button1onclick()
begin
  if not Assigned(form2) then
    form2:=Tform2.creat(application);
  form2.showmodal;
  form2.free;
  form2:=nil;
end;
form2显示后没有在他的onclose事件中写任何代码.

Answer 5

我试了一下，不会呀！你Form2有什么问题代码没有。

Answer 6

to yzykjh
如果有问题，编译时就通不过吧，但编译时没有出任何错误。顺便提一下，编译时form1是与启动窗口放在一起的。