exception - 更改 Lazarus 中的异常消息

Question

每次我使用 araise Exception.create('...');时，它都会显示与 Delphi 不同的以下框：

[my message]

Press OK to ignore and risk data corruption.
Press Cancel to kill the program.

我只想更改此默认消息并仅保留我的部分。

有人知道我该怎么做吗？

Answer 1

要配置我自己的异常消息，我执行了以下操作：

在应用程序主窗体的私有声明中：

procedure onExcept(sender: TObject; e: Exception);

在主窗体的 OnCreate 事件中：

procedure TfrmMain.formCreate(sender: TObject);
begin
    application.onException := @onExcept;
end;

procedure TfrmMain.onExcept(sender: TObject; e: Exception);
begin
    //...
end;

请务必注意，如果您使用 Lazarus，则需要 @ 运算符。如果我不说，编译器会认为onExcept是函数调用。Delphi 在内部添加了它，因此您不必担心它。

如果要更改此行为，请使用{$mode Delphi}而不是{$mode ObjFPC}指令。