我用Table DBGrid作新增，而當我再grid輸入時，若遇到不能null 的欄位，而我按下鍵盤的下鈕就會出現錯誤，請問要在哪裡攔截住 這個錯誤而用自己的訊息表示ㄋㄟ？thx

1.在 TTable 的 BeforePost 事件前 判斷不能 Null 的欄位其值是否為 Null 是的話, 就執行 Abort; 的動作 例:

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
  if Table1.FieldByName('Field1').IsNull then
    Abort;
end;

2.或在 TTable 的 OnPostError 事件中攔截 在此事件中發生的 Error, 就是 EDatabaseError 了。 例:

procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
begin
  ShowMessage('存檔時發生錯誤: '   E.Message);
  Action := daAbort;
end;

發表人 - hagar 於 2002/06/27 09:05:16

可是我在PossErr那邊用Showmessage(E.Message); 他不理我，我用step by step 測他也沒跑到posterr 或 Beforepost那邊也沒跑到ㄝ，這怎解呢？

引言: 可是我在PossErr那邊用Showmessage(E.Message); 他不理我，我用step by step 測他也沒跑到posterr 或 Beforepost那邊也沒跑到ㄝ，這怎解呢？

不要在 Delphi 發展程式中 按 F9 run, 因為這樣 Delphi 會先欄到 錯誤而給你訊息 (除非你關掉這項功能) 所以你可以由檔案總管去 啟動自己的程式看看 ●○○○○○●○○○○○● 竹密不妨水過，山高無礙雲飛

了,thx