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

[rrf]

Hola.

Hace un par de días busqué en el foro la forma de detectar la pulsación de varias teclas (por ejemplo, Ctrl+F3) y no encontré un hilo que tratara el tema directamente, aunque posiblemente exista.

Aún así, pude encontrar la forma de hacerlo y la incluyo en este hilo por si le sirve a alguien.

Este código se añade en un form (que tenga una etiqueta Label1) en el evento OnKeyUp o en OnKeyDown.


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

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

if ( Shift = [ ssctrl, ssalt, ssshift ] ) and ( Key = VK_F12 ) // Condición A
then
Label1.Caption := 'ctrl + alt + shift + F12'

else if ( Shift = [ ssctrl, ssalt ] ) and ( Key = VK_F12 ) // Condición B
then
Label1.Caption := 'ctrl + alt + F12'

else if ( Shift = [ ssctrl, ssshift ] ) and ( Key = VK_F12 ) // Condición C
then
Label1.Caption := 'ctrl + shift + F12'

else if ( Shift = [ ssalt, ssshift ] ) and ( Key = VK_F12 ) // Condición D
then
Label1.Caption := 'alt + shift + F12'

else if ( Shift = [ ssctrl ] ) and ( Key = VK_F12 ) // Condición E
then
Label1.Caption := 'ctrl + F12'

else if ( Shift = [ ssshift ] ) and ( Key = VK_F12 ) // Condición F
then
Label1.Caption := 'shift + F12'

else if ( Shift = [ ssalt ] ) and ( Key = VK_F12 ) // Condición G
then
Label1.Caption := 'alt + F12'

else if Key = VK_F12 // Condición H
then
Label1.Caption := 'F12' ;

end;


En el If...then...Else if... hay que respetar el orden de las condiciones siguiendo la norma de que primero se coloca la condición que requiera más teclas pulsadas y, al final, se coloca la condición de menos teclas pulsadas.

Si no se respetara la condición anterior y, por ejemplo, se sitúa en primer lugar la detección de la pulsación de "Ctrl + F3" y, en segundo lugar "Ctrl + Alt + F3"; entonces nunca se detectaría "Ctrl + Alt + F3", porque siempre se activaría primero "Ctrl + F3".

El ejemplo está hecho con la tecla VK_F12, pero puede hacerse también con VK_Escape, VK_Return, VK_Tab, etc. Todo ello se encuentra en las ayudas buscando "Virtual Key Codes" (al menos en Delphi 7).

Saludos.

Saludos.

[ecfisa]

Hola rrf.

Gracias por el aporte.

Saludos. :)

[defcon1_es]

Buen aporte.
Debería ir en la sección de Trucos.

[Ñ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]

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í:

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:


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.


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.

[santiago14]

Hago mi pequeño aporte a este hilo, estuve probando la combinación de tres teclas y no me funcionaba bien. Claro, estaba en el evento incorrecto.

Supongamos que quiero usar Ctrl + Shift + 1, lo hago en KeyUp y solucioné el problema.
Introduzco el comando Ord(), que me dice cual es el código de la tecla que presiono y me independizo de la tabla ASCII. Estoy en Delphi 7.

Saludos, Santiago.


procedure TfrmEmisionRecibos.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssCtrl, ssShift]) and (Key = Ord('1')) then
begin
MessageBox(Handle, 'Ctrl + Shift + 1', 'Teclas', MB_OK);
end;
end;

[DarkSton]

Para que esto funcione debe estas el programa en primer plano? Osea si abro el programa y minimizó y abro otra cosa "un juego" y al presionar control+alt el form captura la pulsación de los 2 botones?