Question

delphi 捕获子窗体关闭事件

delphi程序，有两个窗体，form1和form2.其中form1是主窗体，可以打开form2。
想实现关闭Form2时自动关闭Form1，
但是没有实现，怎么实现呢？

Answer 1

由于应用程序就两个Form，第二个关了，又让第一个关，那么其实就是第二个窗体的按钮导致程序结束，那么直接为第二个窗体的Close事件加上Application.Terminate就OK。

Answer 2

如果想退出程序可以用Application.Terminate,就不用再引用Form1

可以把上面代码写在Form2的Close事件中,也可以写在其它触发事件中

Answer 3

FORM2的关闭事件里放上
form1.colse;

Answer 4

子窗口设置：
1、放一个Button,设置modalResult属性为mrOK。（注：子窗口执行完要关闭主窗口时点这个按钮）
2、再放一个Button，设置modalResult属性为mrcancel。（注：子窗口执行完不想关闭主窗口时点这个按钮）

主窗口调用子窗口：
procedure TForm4.btn1Click(Sender: TObject);
begin
form5:=Tform5.create(Application);
if form5.ShowModal=mrOk then
begin
form5.Free;
close;
end
else
begin
Form5.Free;
end;
end;