在DBNavigator中BeforAction事件中写如下代码procedure TForm1.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); begin if Button=nbDelete then begin if MessageBox(Handle,'确实要删除么?','系统提示',MB_YESNO or MB_ICONQUESTION)=ID_NO then Abort else begin Adoquery1.Delete; Abort; end; end; end;
Button: TNavigateBtn);
begin
if Button=nbDelete then
begin
if MessageBox(Handle,'确实要删除么?','系统提示',MB_YESNO or MB_ICONQUESTION)=ID_NO then
Abort
else begin
Adoquery1.Delete;
Abort;
end;
end;
end;