Kein update bei DBEdit.next

[Sharky]

Hai rbest,

Du könntest im BevorScroll Ereigniss deines DataSets das Speichern abbrechen.

Delphi-Quellcode:

procedure TForm1.ADOQuery1BeforeScroll(DataSet: TDataSet);
begin
  if ADOQuery1.State in [dsEdit] then
  begin
    if MessageDlg('Änderungen speichnern?', mtConfirmation, [mbYes,mbNo], 0) = mrNo then
    begin
      ADOQuery1.Cancel;
    end;
  end;
end;