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.

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, 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.