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;