Tecla Suprimir

[defcon1_es]

Empezado por javiermorales

El problema está en que además ejecuta la funcionalidad normal de la tecla Suprimir,
aunque como veis no tengo "inherited" y a la tecla le asigno el valor 0.

Hola,
aunque no tengas puesto "inherited",
si se ejecuta el código heredado (si no fuera así, pobres de nosotros ,
no funcionaría la herencia!!)

Pero, viendo el código fuente del tDBCtrlGrid en la VCL:

VK_DELETE: if GetKeyState(VK_CONTROL) < 0 then GridKey := gkDelete;

se me ocurre un truco, pon esta línea en tu código: Shift := Shift+[ssCtrl];

PD: El procedimiento Include(Shift, ssCtrl) es más eficiente
que la asignación Shift := Shift+[ssCtrl]; según la ayuda de Delphi.

Salu2.