Löschen in DBGrid unterbinden

Arakis · Beiträge: 344

Hi Leute,
wie kann man in einem DBGrid oder ähnlichem unterbinden, dass zwar editiert(UPDATE), aber nicht gelöscht werden darf(DELETE)? Denn mit STRG-DEL spring mir immer eine Löschabfrage auf den Bildschirm.

Bis dann
user defined image

_________________
Mit dem Computer löst man Probleme, die man ohne ihn nicht hätte.
Entwickler von SpaceTrek: The New Empire - Siehe Hompage!

Klabautermann · Verfasst: So 15.09.02 13:03

Hallo,

du kannst dich im BeforeDelete Ereignis des Tabellen-Objektes hängen und den löschvorgang mit einem

markieren

Quelltext

1:	DataSet.Cancel;

abbrechen.

Gruß
Klabautermann

Arakis · Beiträge: 344

Hat nicht funktioniert

markieren

Quelltext

1:
2:
3:
4:

procedure TForm_Main.AdressQueryBeforeDelete(DataSet: TDataSet);
begin
  DataSet.Cancel;
end;

Bis dann

_________________
Mit dem Computer löst man Probleme, die man ohne ihn nicht hätte.
Entwickler von SpaceTrek: The New Empire - Siehe Hompage!

bis11 · Beiträge: 1247 Erhaltene Danke: 2 Apple Mac OSX 10.11

Hi Akaris,

probiere es mal mit folgendem Code :

markieren

Quelltext

1:
2:
3:
4:
5:

procedure TKundenformularfenster.DBKundenGesamtKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin                                             
  if (ssctrl in Shift) and (key = VK_DELETE) then key := 0;                    
end;

LCS · Verfasst: So 15.09.02 14:22

Oder so:

markieren

Quelltext

1:
2:
3:
4:

procedure TForm_Main.AdressQueryBeforeDelete(DataSet: TDataSet); 
begin 
  Abort; 
end;

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

NetSpider · Beiträge: 123 Windows XP Pro Delphi 7 Enterprise

Hi Leute,

ist zwar schon lange her - allerdings hatte ich auch eben das Problem mit den DBGrid. Ich habe die Version von bis11 verwendet, da ich glaube, dass LCSs Version zwar funktioniert, allerdings wird jeglicher Delete-Versuch abgebrochen - also auch die evtl. gewollten Loesch-Aktionen.

Find ich nicht so gut, dass die DBGrids keine Option anbieten, bei der man diese Tastenkombinationen disablen kann.

MfG NetSpider

_________________
Wer in die Fußstapfen anderer tritt hinterlässt keine eigenen Spuren!

jasocul · Verfasst: Di 30.01.07 10:17

Ich hatte mal ein ähnliches Problem und habe einfach eine Exception ausgelöst.
Zum Beispiel:

markieren

Delphi-Quelltext

1:	raise EDatabaseError.Create ('Unzulässiger Löschvorgang!');

Probiere das doch mal im "BeforeDelete". Ich meine, dass Cancel und Abort sich nur auf die Erfassung und das Ändern von Datensätzen bezieht.

raiguen · Verfasst: Mi 31.01.07 00:28

Das sollte funktionieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TfrmBenutzer.DBGrid2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if (ssctrl in Shift) and (key = VK_DELETE) then 
  begin
    (Sender as TDBGrid).DataSource.DataSet.Cancel;  //<<-- WICHTIG!! Löschvorgang wird abgebrochen!!
    key := 0;  
  end;
end;

Ohne die hervorgehobene Zeile bzw Anweisung wird trotzdem der Datensatz gelöscht!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme