Abfrage vor dem löschen ?

[Vader]

hallo,

ich möchte bevor ich einen datensatz lösche nocheinmalfragen ob man es wirklich löschen will,
hab es so probiert aber ich krieg nur ein "OK" und es wird immer gelöscht ?

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
begin
MessageDlg(Datensatz wirklich löschen!',mtInformation , [mbOK], 0);
query1.delete;
end;

ich würde ein ok und nein brauchen !
mfg vader

[Die Muhkuh]

Delphi-Quellcode:

if MessageDlg('Datensatz wirklich löschen!',mtInformation , [mbOK, mbNo], 0) = mrOK then
  query1.delete;

[Matze]

Moin,

du musst natürlich auf einen Rückgabewert überprüfen. Schau mal hier hinein.

[merlin17]

statt mtInformation würde ich mtConfirmation nehmen
sieht besser in diesem Falle aus.


thomas

[Sharky]

Hai Vader,

ich würde einen anderen Weg gehen. Mache keine Abfrage bevor Du .Delete aufrufst sondern mache das im BeforeDelete-Ereigniss deines DataSets. Dadurch machst Du die Prüfung an einer zentralen Stelle und kannst sicher sein das die Abfrage immer kommt.

Delphi-Quellcode:

procedure TForm1.Query1BeforeDelete(DataSet: TDataSet);
begin
  if (MessageBox(0, 'Datensatz wirklich löschen!', 'Löschen', MB_ICONQUESTION or
    MB_YESNO or MB_DEFBUTTON2) = idNO) then
  begin
    Abort;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Delete;
end;

Ich habe anstelle von MessageDlg eine MessageBox genommen weil ich dort den Defaultbutton angeben kann. In diesem Fall ist das bei mir der "Nein-Button" und nicht wie bei einem MessageDlg der "Ja-Button".

[Vader]

hallo,

habe mich für die variante von sharky entschieden,
herzlichen dank !
mfg vader