Detectar pulsación de teclas Ctrl, Alt y Shift y teclas virtuales (de función,...)

[Ñuño Martínez]

Apoyo la moción de defcon1_es.

[rrf]

Muchas gracias por sus comentarios.

Me han sorprendido un poco porque, para ser franco, pensaba que eso lo sabía hacer todo el mundo..., aunque quizás le serviría a alguien que se iniciaba en Delphi.

Por cierto, si alguien sabe una forma de hacerlo más fácil o de mejor forma, podría ser este hilo un buen lugar para compartirlo.

Siguiendo la sugerencia de defcon1_es, he intentado incluirlo en la sección "trucos", pero está desactivada.

Y, ya que estamos, ayer intenté obtener pulsaciones de "Ctrl+r", "Ctrl+Alt+r" o cualquier otra letra y no me salió. Era muy tarde y lo dejé. ¿Alguien sabe como se hace?.

Saludos.

[ecfisa]

Empezado por rrf

Muchas gracias por sus comentarios.

Me han sorprendido un poco porque, para ser franco, pensaba que eso lo sabía hacer todo el mundo..., aunque quizás le serviría a alguien que se iniciaba en Delphi.

Por cierto, si alguien sabe una forma de hacerlo más fácil o de mejor forma, podría ser este hilo un buen lugar para compartirlo.

Siguiendo la sugerencia de defcon1_es, he intentado incluirlo en la sección "trucos", pero está desactivada.

Y, ya que estamos, ayer intenté obtener pulsaciones de "Ctrl+r", "Ctrl+Alt+r" o cualquier otra letra y no me salió. Era muy tarde y lo dejé. ¿Alguien sabe como se hace?.

Saludos.

Hola rrf.

Tenés razón seguramente muchos lo sepan, hay pocas cosas que no estén vistas o escritas pero, vos fuiste el único a quién
se le ocurrió exponerlo para ayudar a aquellos que lo ignoran... Así que nuevamente: Gracias por el aporte.

En cuanto a capturar "Ctrl+r" y "Ctrl+Alt+r", probá así:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  (* En el byte de bajo órden está el código del caracter.
      se obtiene con la función Lo. Código letra r = 82 *)
  // Ctrl + 'r'
  if (Shift = [ssCtrl]) and (Lo(Key) = 82) then
    ShowMessage('Ctrl+r');
  // Ctrl + Alt + 'r'
  if (Shift = [ssCtrl,ssAlt]) and (Lo(Key) = 82) then
    ShowMessage('Ctrl+Alt+r');
end;

Saludos.

[rrf]

Ecfisa, me has adelantado mientras preparaba la respuesta a mi propia pregunta.

Aquí está el código que preparé. El tuyo es más sencillo y claro; pero ya que lo hice, lo incluyo:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

      //  Teclas combinadas: en los EVENTOS OnKeyDown y OnKeyUp
      //---------------------------------------------------------

   if ( Shift = [ ssctrl ] )                                      // CTRL + S
      and ( ( ord ( Key ) = 83 ) or ( ord ( Key ) = 115 ) )      // CTRL + s
    then
      Label1.Caption := 'ctrl + s'

  else if ( Shift = [ ssAlt, ssctrl ] )                          // CTRL + ALT + j
      and ( ( ord ( Key ) = 106 ) or ( ord ( Key ) = 74 ) )      // CTRL + ALT + J
    then
      Label1.Caption := 'ctrl + alt + j'

  else if ( Shift = [ ssAlt ] )                                  // ALT + M
      and ( ( ord ( Key ) = 77 ) or ( ord ( Key ) = 109 ) )      // ALT + m
    then
      Label1.Caption := 'alt + m'' ;

end;

Desconocía la función "lo", que hace que la solución que tú aportaste sea más sencilla.

Bueno, si se quiere conocer el código Ascii de una letra o caracter sin consultar las tablas, con esta línea, se podrá ver el caracter y el código que le corresponde.

Código Delphi [-]
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin

  Label2.Caption := key + ' = ' + inttostr ( ord ( key ) ) ;

end;

Ojo, que está en el procedimiento FormKeyPress.

Gracias Ecfisa.

Saludos

[ecfisa]

Es correcto.

Y un detalle más: Para que el Form detecte las teclas incluso cuando estamos dentro de un componente como por ejemplo un Edit,
hay que poner en el Form la propiedad KeyPreview igual a True.


Saludos.

[rrf]

Y un detalle más: Para que el Form detecte las teclas incluso cuando estamos dentro de un componente como por ejemplo un Edit,
hay que poner en el Form la propiedad KeyPreview igual a True.

Eso sí que es un aporte interesante y útil.

Muchas gracias y saludos.

[MichelH]

Gracias men, ya lo habia hecho una vez, pero tenia tiempo sin necesitarlo y ya no me acordaba.

Gracias de nuevo.