Registriert seit: 28. Jul 2005
Ort: Dormagen
55 Beiträge
Delphi 10.2 Tokyo Enterprise
|
Raize TRzDBNavigator Delete Ausführung unterbrechen und etwas anderes machen.
20. Nov 2022, 16:55
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;
Dirk - Lang ist der Weg durch Lehren, kurz und wirksam durch Beispiele.
(Seneca, röm. Dichter u. Phil., 4 v. Chr. - 65 n.Chr.) -
|