Ver Mensaje Individual
  #1  
Antiguo 12-06-2012
franroju franroju is offline
Miembro
NULL
 
Registrado: ene 2012
Posts: 55
Reputación: 13
franroju Va por buen camino
¿cómo hago para saber que tecla se presionó?

Hola gente. Se que hay varios hilos creados con el problema que voy a describir, pero no me han solucionado, o mi capacidad mental no me permite comprender las soluciones que les han dado a los demás, je.

La situación es la siguiente: Estoy usando delphi 7, y tengo un DBGrid al cual quiero que si se presiona la tecla Supr, elimine un registro de la tabla.
Para eso, en el envento OnKeyDown del DBGrid puse lo siguiente:
Código Delphi [-]
procedure TForm6.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if (Key = 127) then
         eliminarRegistro;
end;

No funcionó. Probe ponerlo en el OnKeyPress cambiando la condición por #127 pero tampoco funcionó. Luego debuggee el código, mostre en pantalla el valor del parámetro Key y resulto ser el número 46. Pero según el código ASCII es el 127.

Entonces mi duda es, ¿cómo hago para saber que tecla se presionó?. Pregunto en general porque también tengo unos Edits los cuales quiero que ingrese sólo números y necesitaría el mismo procedimiento.

En el caso de la tecla Supr, si yo pregunto:
Código Delphi [-]
 if (key = 46) then
me va a funcionar en cualquier teclado??.

Muchas gracias y espero puedan orientarme un poco sobre el funcionamiento.
Responder Con Cita