DELPHI关闭子窗体

来源：百度知道 编辑：UC知道 时间：2024/05/14 10:47:41
一个MDI窗体
点击这里的一个按扭能够调出子窗体

当调用出这个子窗体。
为什么点击关闭子窗体的时候，这个窗体并不关闭，而是最小化了

在关闭按扭里写什么代码可以实现关闭子窗体

在Delphi中，所有窗体关闭时都会调用OnClose过程。
该过程的Action: TCloseAction变量决定窗体的关闭方法。
对于SDI子界面，默认是caHide，也是就隐藏。
对于MDI子界面，默认是caMinimize，也就是最小化。
你可以在窗体的OnClose过程中设置Action为caFree，就可以正常关闭窗体了。

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;