Eliminar Pulsación tecla Supr

[marto]

Wop!


Este método lo acabo de comprobar y funciona. De todas maneras, es una manera más de hacer lo mismo.
Sabemos que podemos programar el onKeyDown/Up del Form y poniendo KeyPreview = true, podemos controlar la pulsación de la tecla en cualquier control. Lo que sucede es que solamente queremos controlar el evento en aquellos controles que estén dentro del CtrlGrid.
Bien, cuando creamos un control dentro de un TDBCrtlGrid, su Parent apunta a una istancia de la clase TDBCtrlPanel, en consecuancia podríamos aplicar la siguiente tecnica:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
  if (ActiveControl.Parent is TDBCtrlPanel) and (Key = VK_DELETE) then
  begin
	//tomamos las acciones que queramos
	Key := 0;
	Abort;
  end;
end;