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