dbnavigatorの削除ボタンを押した後、決定に基づいてレコードの削除を中止するにはどうすればよいですか？

Question

dbnavigator削除ボタンを押した後に、決定に基づいてレコードの削除を中止できますか？ 私はイベントbeforeAction

if Button = nbDelete then 
    //check if not OK then 

Button := nbCancel; 

をチェックするが、それは動作しません。どんな助け？内部のオブジェクトインスペクタで、その後、DBNavigatorを選択

procedure Tdm.MyDataSetBeforeDelete(DataSet: TDataSet); 
begin 
    if SomeCondition then 
    begin 
    ShowMessage('Sorry, you can not delete this record.'); 
    Abort; 
    end; 
end; 

Answer 1

使用を使用していますOptionsはnoConfirmDeleteを "false"に設定します

Answer 2

をDelPhi XE2, anyDac Components

Answer 3

：

私はあなたがBeforeDeleteイベントを使用することができますBeforeActionイベント

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); 
begin 
    if Button = nbDelete then 
    begin 
    if MessageDlg('Confirm delete now?', mtConfirmation, [mbYes,mbNo], 0) = mrNo then 
    begin 
     Abort; 
    end; 
    end; 
end;