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

Question

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

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

Button := nbCancel;

しかし、うまくいきません。ヘルプはありますか？

私は使用していますDelPhi XE2, anyDac Components

Answer 1

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;

Answer 2

BeforeDelete イベントを使用できます。

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

Answer 3

DBNavigator を選択し、オプション内のオブジェクト インスペクタで noConfirmDelete を「false」に設定します。