Anfügen und Löschen bei DBGrid verhintern

[neolithos]

Anfügen und Löschen bei DBGrid verhintern
Aber editieren erlauben?


TADO-Komponenten -> TADOQuery; TDBGrid

[JohannesK]

Hallo

für die normalen DBGrid-Komponenten fällt mir momentan keine Lösung ein.

Wir verwenden normalerweise die Grid-Kompos von Woll2Woll (leider keine Freeware), dort sind genau die Funktionen drin die Du brauchst.

Vielleicht mal auf der Companion-CD nachschauen und Demo testen.

[grayfox]

hallo neolithos!

auch eine ADOQuery hat die Events OnNewRecord und BeforeDelete

im OnNewRecord trägst du 'Abort' ein - somit wird kein neuer datensatz angelegt
dasselbe im BeforeDelete

sollte das nicht helfen, dann sperre einfach die tastenkmbination strg + delete...

Delphi-Quellcode:

{$UNTESTED}
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (ssctrl in Shift) and (key = VK_DELETE) then
    key:= 0
end;

mfg, stefan

[neolithos]

Danke!

Das mit dem Abort funktioniert einwandfrei.

Delphi-Quellcode:

procedure TSVPGrid.DataBeforeInsert(DataSet: TDataSet);
begin
  Abort;
end;