Datensatz in DBGrid löschen!

[Sharky]

Zitat von Goldesel:

...Hab ne englische Version und die Abfragen aind jetzt auf Englisch. Geht das auch auf Deutsch ...

Das geht nur durch das änern der englischen Texte in den Delphi-Sourcen. Also keine gute Lösung.
Deaktiviere doch am besten das Löschen im DB-Grid und schreibe dafür eine eigene Funktion mit einer eigenen Abfrage.

Zum Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.ReadOnly := True;
end;

function DeleteRecord(ds: TDataSet): boolean;
begin
  case MessageBox(0, 'Datensatz wirklich löschen?', 'Achtung',
      MB_ICONWARNING or MB_YESNO or MB_DEFBUTTON2) of
    idYes: begin
      ds.Delete;
      Result := True;
    end;
    idNo: begin
      Result := False
    end;
  end;
end;

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
begin
  if Shift = [ssCtrl] then
  begin
    case Key of
      VK_DELETE: begin
        DeleteRecord((Sender as TDBGrid).DataSource.DataSet)
      end;
    end;
  end;
end;

Oder, noch einfacher Du machst es im BeforeDelete deines Datasets.