automatisches post bei scroll verhindern

[marabu]

Zitat von sancho1980:

reden wir von der gleichen sache?

Aber sicher doch. Die von dir zitierte Auflistung gehorcht eigenen Gesetzen - OnBeforePost() wird definitiv von TDataSet eingeführt.

Hättest du nur gleich den DBNavigator erwähnt. Wenn der record pointer ausschließlich über diesen Navigator bewegt wird, dann kannst du sogar ohne Flag arbeiten:

Delphi-Quellcode:

procedure TDemoForm.DBNavigatorBeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  with (Sender as TDBNavigator).DataSource.DataSet do
    if (Button in [nbFirst, nbLast, nbPrior, nbNext])
    and (State <> dsBrowse) then
      Cancel;
end;

Getippt und nicht getestet.

Grüße vom marabu