Raize TRzDBNavigator Delete Ausführung unterbrechen und etwas anderes machen.

[dstein]

Danke hatte es nur beim "OnClick" ausprobiert. Aber die Aktion muß bei "BeforeAction" erfolgen.
Nun passt es.

procedure Tfrm_Kontakte.RzDBNavigatorFABeforeAction(Sender: TObject; Button: TRzNavigatorButton);
begin
case Button of
TRzNavigatorButton.nbdelete:
begin
CodeSite.Send('BeforeAction nbdelete ');
// wenn delete dann mache etwas anderes
if Qry_FirmaIDNR.AsInteger > 0 then
begin
Qry_Firma.Edit;
Qry_FirmaKZ_Aktiv.AsInteger := 9;
Qry_Firma.Post;
Qry_Firma.Refresh;
end;
Abort;
end;
end;
end;