[简单问题]求代码，点击非主窗口的标题栏右边的系统关闭按钮时结束整个程序？

Question

某窗口非主窗口，想点击其标题栏右边的系统关闭按钮（“X”）时结束整个程序？请问代码如何写?谢谢

Answer 1

Kevin_Lmx(繁华阅尽) 的答案可行。如果关闭系统时还有其他的处理过程也可以在这里添加
处理过程；
Application.Terminate；

Answer 2

procedure TApplication.Terminate;
begin
  if CallTerminateProcs then PostQuitMessage(0);
end;

Answer 3

TO jiazhongyou(jiazhongyou) ：你的那个方法太耗资源了吧。

Answer 4

1、application.Terminate;
2、OnResize;