Cita:
|
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:
Código:
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.