Ergebnis eines nicht von mir generierten Dialogs abfragen

[fragile]

Hallo,

ich möchte gern das Ergebnis der Sicherheitsabfrage beim Löschen eines Datensatzes beim Klick auf das Minuszeichen der TDBNavigator-Komponente abfragen - wie greife ich darauf zu ?

Vielen Dank schonmal,
FraGiLe

[MacGuyver]

Moin auch,

das geht ein bisschen tricky: Du setzt das Ereigniss BeforeAction und merkst dir dort den aktuellen Primärschlüssel. Dann setzt und das Ereignis BeforeDelete vom Table/Query und merst dort auch den aktuellen Primärschlüssel. Wenn dann das Ereignis OnClick des Navigators auslöst wird und Index = nbDelete ist kannst du ermitteln, ob der Dialog bestätigt wurde oder nicht. Sind die gemerkten Primärschlüssel unterschiedlich, wurde abgelehnt.

Stefan

[shmia]

Die Sicherheitsabfrage entsteht durch ein TDBGrid dass im Property Options den Wert dgConfirmDelete gesetzt hat.
Am Sinnvollsten wäre jetzt eine eigene Sicherheitsabfrage einzubauen und die Sicherheitsabfrage des Grids abzuschalten:

Delphi-Quellcode:

procedure TForm1.Table1BeforeDelete(Dataset:TDataset);
begin
  // Pseudocode. soll nur das Prinzip zeigen
  if MsgDialog('Wollen sie wirklich diesen tollen Datensatz löschen?', ....) <> mrOK then
    Abort;
end;

Dein Dialog sollte nicht nur OK oder Abbrechnen sondern auch die Antwort "Ja, immer" zulassen.

[fragile]

Danke euch beiden,

habe es jetzt in der DBNavigator-Komponente im BeforeAction-Ereignis eingebaut und funzt prima !

Gruß aus Amberg,
FraGile