gpt4 book ai didi

delphi - 在 Delphi 中更改引发异常的图标

转载 作者:行者123 更新时间:2023-12-03 19:09:27 25 4
gpt4 key购买 nike

在我们的应用程序中,我们创建了几个 Exceptions 类来满足我们的所有需求。但现在的问题是,引发的异常对话框总是 MessageType mtError当然显示mtError -图标。
对于我们的一些异常(exception)情况,我更喜欢不那么激进的图标/消息类型,例如 MessageType mtInformation .

有什么方法可以直接在 Exceptionclass 中更改图标,而无需使用 try...except 再次提升和捕获它每次出现?

最佳答案

您将需要自定义顶级异常处理程序。

编写一个事件处理程序并将其附加到 Application.OnException .然后,您可以以任何您喜欢的方式处理特定的异常。

事件处理程序将如下所示:

procedure TMainForm.ApplicationException(Sender: TObject; E: Exception); 
begin
if E is EMyException then
ShowExpectedMessageBox(E)
else
Application.ShowException(E);
end;

显然你必须为 ShowExpectedMessageBox 编写代码。 .这可以使用您喜欢的任何图标显示消息框。

OnException当未处理的异常到达消息循环时调用事件。如果您没有事件处理程序,框架会调用 Application.ShowException .对于那些没有得到特殊待遇的异常(exception)情况,您应该这样做。

关于delphi - 在 Delphi 中更改引发异常的图标,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16208305/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com