怎样让delphi中的关闭按钮现实退出整个程序 而不是退出当前窗口?

如果想退出整个册高答州慧程序，你念余可以直接使用Appliction的函数：

procedure TForm1.btn2Click(Sender: TObject)

begin

Application.Terminate

end

不知道你的强制退出程序,是不是你自己编写的,造成死循环产生的,想强制中断调试.

如差雹果这样,你按备亮 ctrl +F2建就可以退出了.

如果是程序循环,强制退出循环程序,就直接 exit就可以仿庆宽,

1、break 强制退出循环（只能放在循环中），用于从For语句，while语句或repeat语句中强制退出。

2、continue 用于从For语句，while语句或repeat语句强行结束本次称称循环，并开始下一次循环。

3、exit 用于从当前代码块中退出。若该代码为主程序，则终止该程序，若是函数或过程，则立激唯知即该过程或函数。

4、abort 中止程序的运行，产生不报错的明消异常信息。跳出山迹祖先模块。

---