डीबीएनविगेटर डिलीट बटन दबाए जाने के बाद निर्णय के आधार पर रिकॉर्ड को हटाने में मैं कैसे रोक सकता हूं?

Question

क्या मैं dbnavigator हटाए गए बटन को दबाए जाने के बाद निर्णयों के आधार पर रिकॉर्ड हटाने को रोक सकता हूं? मैं जाँच की beforeAction घटना

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

Button := nbCancel; 

लेकिन यह काम नहीं करता। कोई मदद? अंदर

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

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 घटना का उपयोग कर सकते विकल्पों ने NoConfirmDelete को "false"

पर सेट किया 10

Answer 3

DBNavigator चयन करें, फिर वस्तु इंस्पेक्टर पर:

मैं उपयोग कर रहा हूँ DelPhi XE2, anyDac Components