procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if Button = nbInsert then
begin
Table1.Append;
abort;
end
end;
或者:
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if Button = nbInsert then begin
Query1.Cancel;
Query1.Append;
end;
end;