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 ?

markieren

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

markieren

Delphi-Quellcode:

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

Moin,

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

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


thomas

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.

zusammenfalten · markieren

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".

hallo,

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