deshabilitar eliminar desde un dbgrid

morfeo21 · #1 13-10-2005

Hola amigos del foro , necesito que me ayuden con algo que me sucede en un prg que estoy realizando , pues veran estoy tratando de deshabilitar la opcion de eliminacion que tien la dbgrid que es atravez de la combinacion de teclas [ctrl] +supr . Se que evitar que lo elimine lo consigo poniendo abort en el evento de afterDelete del TibDataSet que utilizo, pero quisiera capturar las teclas y anular su funcionamiento. se puede lograr esto gracias.

Dexter182 · #2 13-10-2005

Claro que si !!!.

Tenés que usar los procedimientos OnKeyUp o OnKeyDown.

Entonces verificas si las teclas presionadas son control y suprimir
(no recuerdo las contantes, pero están en la ayuda de Delphi)
y le pones Key := 0;
Y debería funcionar.

roman · #3 13-10-2005

Cita:

Empezado por morfeo21

Se que evitar que lo elimine lo consigo poniendo abort en el evento de afterDelete del TibDataSet que utilizo, pero quisiera capturar las teclas y anular su funcionamiento.

Supongo que si quieres esto es porque aunque pongas abort en BeforeDelete (ojo: no AfterDelete) te sigue apareciendo el mensaje de confirmación.

Si esto es lo que pasa, entonces basta que, además de BeforeDelete, pongas en false la opción dgConfirmDelete del DBGrid (propiedad Options).

Con esto ya no te aparece el mensaje.

// Saludos