G gyzhen Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-20 #1 想问一下各位,如何检测到DBNavigator组件中"-"(即删除当前记录)按钮被按下,且记录被 删除这一事件啊?
P pihome Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-20 #2 procedure TForm1.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); begin if Button=nbDelete then end;
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); begin if Button=nbDelete then end;
X xianjun Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-20 #5 最好的方法是在DataSet.BeforeDelete或AfterDelete事件里面写代码,而不是 检测DBNavigatorr的某一按钮是否按下。
Y yanghaijun Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-20 #7 比如在BeforeDelete事件中这样写: if MessageDlg('你是否要删除当前记录?',mtQuestion,[mbOK,mbCANCEL],0)=mrCANCEL then Abort;
比如在BeforeDelete事件中这样写: if MessageDlg('你是否要删除当前记录?',mtQuestion,[mbOK,mbCANCEL],0)=mrCANCEL then Abort;