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

[dstein]

Raize TRzDBNavigator
Bei einem TRzDBNavigator möchte ich wenn der TRzNavigatorButton.nbDelete gedrückt wird die Delete Ausführung unterbrechen und etwas anderes machen.
Dabei ist mir aufgefallen das die Delete Anweisung schon beim "BeforeAction" ausgeführt wird und nicht erst beim "OnClick".
Wie kann ich mich dazwischen schummeln vor der Delete Anweisung und eine andere Anweisung einbauen?


procedure Tfrm_Kontakte.RzDBNavigatorFABeforeAction(Sender: TObject; Button: TRzNavigatorButton);
begin
case Button of
TRzNavigatorButton.nbdelete:
begin
CodeSite.Send(' nbdelete ');
// wenn delete dann mache etwas anderes
// kann ich hier unterbrechen?
end;
end;
end;


procedure Tfrm_Kontakte.RzDBNavigatorFAClick(Sender: TObject; Button: TRzNavigatorButton);
begin
case Button of
TRzNavigatorButton.nbdelete:
begin
// wenn ich hier bin wurde das Message delete schon aufgerufen.
// nicht löschen nur KZ_Aktiv :=9;
// wenn delete dann mache etwas anderes
end;
end;
end;

[peterbelow]

Delphi-Quellcode:

Abort;

Damit kann man sowas unterbrechen, der Code flow geht dann zurück bis zur message loop. Für Risiken und Nebenwirkungen befragen Sie ihre Kristallkugel :wink:

[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;