Delphi 2007 - 錯誤處理，未點擊“除外”部分

Question

我編寫了一個原始簡單的代碼，嘗試調試項目中出現的情況。 我試圖在創建新的 window 時遇到異常，但我沒有到達那里，這是為什么？ 告訴我出了什么事？ 或閱讀什么來理解。

所以我到了“除外”部分！

procedure TForm1.Button1Click(Sender: TObject);
var
  Local: TForm2;
begin
  try
    //Local := TForm2.Create(nil);
    //Local.Show;

    raise Exception.Create('not implement');
  except
    on E: Exception do
    begin

    end;
  end;
end;

我需要處理這種情況。 我不會像那樣進入“除外”部分

模塊Form1.pas

procedure TForm1.Button1Click(Sender: TObject);
var
  Local: TForm2;
begin
  try
    Local := TForm2.Create(nil);
    Local.Show;
  except
    on E: Exception do
    begin

    end;
  end;
end;

模塊 Form2.pas

procedure TForm2.FormCreate(Sender: TObject);
begin
  raise Exception.Create('not implement');
end;

Answer 1

您將看到從DoCreate調用的TCustomForm.Create在 try 中具有OnCreate ，並且它的異常將異常傳遞給TApplication.HandleException ，如果分配了一個，則將其傳遞給TApplication.OnException 。

如果您認為如果您覆蓋表單的HandleCreateException ，您可以返回False結果，這將允許異常通過