Delete-Aktion abbrechen

[LCS]

Hi
an deiner Stelle würde ich den Code direkt im BeforeDelete-Ereignis plazieren:

Code:

procedure ...BeforeDelete(DataSet: TDataSet)
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_YESNO + MB_ICONEXCLAMATION) = IDNO then
          Abort;

Wenn du den Dialog mit JA/NEIN Schaltflächen machst, ist die ganze Geschichte auch eindeutiger. Bei OK/Abbrechen gibts immer Leute, die damit nicht klarkommen.

Gruss Lothar