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

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

Código Delphi [-]
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;