請問各位專家 TApplicationEvents物件要如何產生 將 procedure TForm1.ApplicationEvents1Exception(Sender: TObject;E: Exception); 的程序直接寫程式中，執行後沒有反應，是不是不能直接寫，還是不能寫在unit裡，麻煩各位專家幫忙解答 謝謝 發表人 - kool0318 於 2005/02/17 17:31:16

看不懂您的問題 是指動態產生 TApplicstionEvent 元件嗎？ 那試試:

var
  AppEvents: TApplicationEvents;    procedure TForm1.FormCreate(Sender: TObject);
begin
  AppEvent := TApplication.Events.Create(Self);
  AppEvent.OnException := ApplicationEvent1Exception;
end;

如果不用元件的話:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := ApplicationEvent1Exception;
end;

兩者都要先將 procedure TForm1.ApplicationEvents1Exception(Sender: TObject;E: Exception); 這部份做好.

不好意思，問的不清不楚的，我再重新描述我的問題 我在程式中利用DirectoryListBox來開啟檔案，但是如果點選光碟機，如果 光碟機中無光碟片就會出現錯誤，我在站上尋找相關文章， 找到jest0024大大發表的文章:如下 "放置個TApplicationEvents物件攔劫例外 procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception); begin if e is EInOutError then begin if GetLastError=21 then ShowMessage('光碟機沒光碟片!!'); end; end;" 可是我找不到TApplicationEvents這個物件，直接將這個procedure寫在程式中 也沒反應，不知道是少作哪個步驟? 大大提供的兩個方法我都試過了，都會出現錯誤 第一個出現 undeclared identiifier TApplicationEvents 第二個出現 undeclared identiifier ApplicationEvent1Exception 麻煩大大幫我解答 謝謝

好像 Delphi5 還是 Delphi4 以後才有 TApplicationEvent 元件 (在元件盤的 Additional 頁) 沒有這個元件可用如下的方試試:

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;    type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    // 這裡要宣告
    procedure ApplicationException(Sender: TObject; E: Exception);
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    { TForm1 }    procedure TForm1.ApplicationException(Sender: TObject; E: Exception);
begin
  if E is EInOutError then
  begin
    if GetLastError=21 then
      ShowMessage('光碟機沒光碟片!!');
  end;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := ApplicationException;
end;    end.

發表人 - hagar 於 2005/02/18 08:39:27

大大 不好意思還是無法觸發TForm1.ApplicationException這個事件 而且我的程式碼中沒有 { TForm1 } 這一行，手動加入後還是無法成功 麻煩大大解答 謝謝 不過我有找到 TApplicationEvent這個物件(我用7.0)，但把程式碼加入 仍然無反應

小弟這邊試的結果是會觸發 EInOutError 的 但 GetLastError 的值卻不一定是 21 大部份是 87

procedure TForm1.ApplicationException(Sender: TObject; E: Exception);
var
  iError: integer;
begin
  if E is EInOutError then
  begin
    iError := GetLastError;        if iError=21 then
      ShowMessage('光碟機沒光碟片!!') 
    else
      ShowMessage(SysErrorMessage(iError));
  end;
end;

發表人 - hagar 於 2005/02/18 09:20:49

小弟出現的錯誤訊息是這個，所以應該還是沒觸發成功，不知道原因出在哪耶 以下是我測試的程式碼 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl, AppEvnts; type TForm1 = class(TForm) DriveComboBox1: TDriveComboBox; DirectoryListBox1: TDirectoryListBox; FileListBox1: TFileListBox; procedure FormCreate(Sender: TObject); private procedure ApplicationException(Sender: TObject; E: Exception); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ApplicationException(Sender: TObject; E: Exception); var iError: integer; begin if E is EInOutError then begin iError := GetLastError; if iError=21 then ShowMessage('光碟機沒光碟片!!') else ShowMessage(SysErrorMessage(iError)); end; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnException := ApplicationException; end; end.

我找到原因了 原來是還沒執行完畢 感謝大大的回答