Die Entferne-Taste abfangen

[cugar]

Hallo,
nach dem man eine Zelle in der DBGrid anklickt, wird der Inhalt markiert, ich möchte das der User etwas ausschliesslich aus der Liste auswählen muß, desweg habe ich über: procedure TForm1.XDBGridLierferadresseKeyPress(Sender: TObject; var Key: Char);
die Tasten mit key:=#0; abgefangen, es funktioniert wie es sein soll, die einzige Taste, die mir Sorgen bereitet ist die Entferne-Taste, die mir den markierten Text löscht.
Wie kann ich es verhindern?

Gruß
cugar

[Nils_13]

Ist schwer zu sagen, ob du folgendes nicht sowieso schon probiert hast:

Delphi-Quellcode:

if Key = VK_DEL then
  Key := #0;

Es müsste genauso, wie bei den anderen Tasten funktionieren.

[cugar]

Das Problem ist nur, welche Procedure wird nach dem Tastendruck angesprochen?
KeyDown,KeyPress,KeyUp machen da nicht mit, wie kann ich die Markierung in der Zelle nach dem Mausklick aufheben???
Das hätte auch geholfen.

[bitsetter]

Und wenn du onKeyDown benutzt, wie ist es dann?

Delphi-Quellcode:

procedure TForm1.XDBGridLierferadresseKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key= VK_DELETE then
  key:= 0;
end;

[cugar]

Wenn ich nach dem Mausklick die entf-Taste drücke, wird der Text gelöscht, er geht in die Keydown nicht rein

[TOmega]

Also OnKeyPress ist schon richtig, wenn du die Eingabe wirklich abfangen willst. Das klappt mit OnKeyDown nicht. Ich hatte ein ähnliches Problem mit dem Abfangen der Enter-Taste in Edit-Feldern ohne das jedesmal ein Windows-Warnsignal kommt.
Aber Du hast recht, mit der Delete-Taste klappt das auch nicht.
Wenn Du nicht willst, das jemand die Daten verändert, warum setzt Du dann nicht einfach dein DBGrid auf ReadOnly?

[marabu]

Guten Morgen,

wenn keine Zelle im DBGrid frei bearbeitet werden darf, dann muss die Eigenschaft ReadOnly auf True gesetzt sein. Ist nur für bestimmte Spalten ein fester Wertebereich (Listenauswahl) vorgegeben, dann würde ich die freie Bearbeitung über das Ereignis OnColEnter() unterbinden:

Delphi-Quellcode:

procedure TDataForm.DBGridColEnter(Sender: TObject);
begin
  with Sender as TDBGrid do
    ReadOnly := SelectedIndex in [0, 2, 4];
end;

Im Beispiel wird die freie Bearbeitung in drei Spalten verhindert.

Grüße vom marabu