ミ,,ﾟДﾟ彡フサギコのﾌｻﾌｻDelphi談話室その20

>>747
それでは例外が生成された瞬間に普通の例外処理に飛んでしまうから
期待した処理にはならないぞ。VCLソースを書き換えてもいいのだけど、
とりあえずこれで実験よろ。

FormにTApplicationEventsを置いて、OnExceptionイベントをこうする。

procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
var
  ActCtrl: TWinControl;
begin
  ActCtrl := Screen.ActiveControl;
  Application.ShowException(E);
  if Assigned(ActCtrl) and ActCtrl.CanFocus then
    ActCtrl.SetFocus;
end;