Lazarus エラー時に強制終了を表示させない方法

2010-01-11

執筆：2010.1.11(成人の日)
編集：2010.1.11
編集:2016.04.01

アプリケーションがエラーで強制終了する仕様は
version 1.7 (リビジョン: 51739 日時: 2016年2月28日 16:33:49)
で、改善されました

今日の講義は、lazarus で作ったアプリケーションのエラー時の動作変更です。

今日の材料： lazarus 0.9.29

既定では、エラーが発生すると、強制終了しますか？と尋ねてきます。
間違って、OK以外を選択すると、Haltを呼び出し　アプリケーションが消滅します。
データを扱っているアプリケーションの場合、この動作が致命的な場合もあります。

【まとめ】

最新版では、この不具合は修正されています
アプリを Lazarus Version1.8 以降でコンパイルしなします

Lazarus Version1.7 以前の場合

procedure TForm1.FormCreate(Sender: TObject);
begin
with Application do Flags := Flags + [AppNoExceptionMessages];
end;

procedure TForm1.ApplicationProperties1Exception(Sender: TObject; E: Exception);
begin
{ uses節にLCLTypeを追加します }
with Application do
MessageBox(PChar(E.Message),PChar(Title),MB_OK+MB_ICONERROR);
end;

今日のキーワード：
lazarus
Exception
Press OK to ignore and risk data corruption. Press Cancel to kill the program.
Application.Flags
AppNoExceptionMessages
like Delphi