Hallo,
in einem meiner Programme habe ich die Abfrage "Datensatz löschen" durch einen eigenen Dialog ersetzt. Erst wenn der Anwender auf "OK" klickt soll der Datensatz gelöscht werden. Aber bisher ist es so, dass, sobald ich auf den "-"-Button klicke, der Datensatz trotzdem gelöscht wird.
Der Code für den
DB-Navigator sieht so aus:
Code:
if Button = nbDelete then begin
strMsgText := 'Soll der Kunde "';
strMsgText := strMsgText +
dmGeneral.tblSD_Cust.FieldByName('strShortName').AsString;
strMsgText := strMsgText + '" mit allen untergeordneten Daten ';
strMsgText := strMsgText + ' wirklich gelöscht werden?';
if Application.MessageBox(PChar(strMsgText),'Sicherheitsabfrage',
MB_OKCANCEL + MB_ICONEXCLAMATION) = IDOK then begin
Showmessage('Hier soll mal delete stehen und ein paar andere Dinge');
end else
dmGeneral.tblSD_Cust.Cancel;
end;
Beim Klick auf "Abbrechen" passiert dann nix mehr, nur die Dialogbox verschwindet halt
Hat vielleicht jemand einen Tip?
Danke
Frank