Ver Mensaje Individual
  #16  
Antiguo 25-03-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Creo haber encontrado una posible solución:

Como ya sabemos, el código

Código:
procedure TForm1.DBCtrlGrid1KeyDown(...);
begin
  if (Key = VK_DELETE)  then
    begin
      Key := 0;
    end;
end;
no inhibe el evento OnKeyDown de un DBEdit contenido.

Intenta esto:

Código:
procedure TForm1.DBCtrlGrid1KeyDown(...);
begin
  if (Key = VK_DELETE)  then
    begin
      Key := 0;
      abort;
    end;
end;
abort interrumpe cualquier procesamiento posterior. Ya lo probé y sí funciona. No obstante desconozco si pueda generar algún efecto secundario.

// Saludos
Responder Con Cita