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

사용을 사용하고 있습니다 옵션은 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;