### 关于 UniGUI 中关闭窗体时触发的事件或方法 在 UniGUI 框架中，关闭窗体时会触发一系列事件和方法。这些事件和方法主要用于处理窗体关闭逻辑、资源释放以及用户交互等操作。以下是与关闭窗体相关的事件和方法： 1. **OnClose** 当窗体即将关闭时会触发 `OnClose` 事件[^2]。此事件通常用于执行清理操作，例如释放资源或保存状态信息。需要注意的是，`OnClose` 事件是在窗体关闭之前触发的。 2. **OnCloseQuery** 在窗体真正关闭之前，`OnCloseQuery` 事件会被触发[^3]。此事件允许开发者决定是否允许窗体关闭。通过设置参数 `CanClose` 的值为 `False`，可以阻止窗体关闭。这为用户提供了一个确认关闭的机会。 3. **Destroy** 方法 当窗体被完全关闭并且不再需要时，`Destroy` 方法会被调用以销毁窗体实例及其关联的资源[^4]。开发者通常不需要直接调用此方法，因为它会在窗体生命周期结束时自动执行。 4. **uniForm 控件相关事件** 在 UniGUI 中，`uniForm` 控件提供了额外的事件来处理窗体关闭行为。例如： - **BeforeUnload**：这是一个浏览器级别的事件，当页面即将卸载（包括窗体关闭）时触发。可以通过此事件提示用户确认关闭。 - **OnDestroy**：类似于标准的 `Destroy` 方法，但在 UniGUI 中专用于 `uniForm` 控件，确保所有相关资源被正确释放。 5. **MDI 子窗体的特殊行为** 根据引用内容[^1]，对于 MDI 子窗体，默认情况下窗体会被最小化而不是关闭。如果需要改变这种行为，可以在 `OnCloseQuery` 或其他相关事件中进行自定义处理。 以下是一个简单的代码示例，展示如何在 UniGUI 中使用 `OnCloseQuery` 和 `BeforeUnload` 事件： ```pascal procedure TUniMainForm.UniFormCloseQuery(Sender: TObject; var CanClose: Boolean); begin // 确认是否关闭窗体 if MessageDlg('Are you sure you want to close this form?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then CanClose := False; end; procedure TUniMainForm.UniFormBeforeUnload(Sender: TObject; EventParams: TStrings; var Handled: Boolean); begin // 浏览器级别确认关闭 EventParams.Values['Result'] := 'Are you sure you want to leave?'; Handled := True; end; ``` ### 注意事项 - 如果需要防止窗体关闭，应在 `OnCloseQuery` 事件中设置 `CanClose := False`。 - 对于 MDI 子窗体，默认行为是将其最小化而非关闭。若需更改此行为，可在事件中添加自定义逻辑。 - 使用 `BeforeUnload` 事件时，需要注意其作用范围不仅限于窗体关闭，还包括页面刷新等场景。