eliminar opcion de eliminar en un dbgrid
 

Hola a todos, amigos del foro. quisiera saber si existe alguna forma de anular en un dbgrid la posibilidad de eliminar un registro presionando las teclas de [ctrl]+[supr]. o la forma de desabilitar esta funcion propia del dbgrid. Gracias de antemano por la respuesta . :mad:

Hola,

No conozco el componente a que te refieres, solo de pasada, por lo que es posible que lo que diga no sirva o, cuando menos, pueda hacerse de otra manera.

Propongo que en el evento OnKeyDown del DbGrid o en el del formulario en que esté dicho componente sitúes algo parecido a esto:

Código Delphi [-]
    if (ssCtrl in Shift) and
      (Key = VK_DELETE) then
        Key := 0;

¿Puede hacerte el apaño?

Una opción:

En la propiedad Options del dbgrid pon dgConfirmDelete en true y en el evento BeforeDelete del dataset asociado pon:

Código Delphi [-]
procedure TForm1.Table1BeforeDelete(DataSet: TDataSet);
begin
  abort;
end;

Lo primero evita que el dbgrid muestre el mensaje de confirmación y lo segundo impide al dataset borrar el registro.

// Saludos

Gracias Roman , por ayudarme con el problema que tenia. Ya solucione mi problema. :p