Ver Mensaje Individual
  #6  
Antiguo 14-08-2007
Avatar de ArdiIIa
[ArdiIIa] ArdiIIa is offline
Miembro Premium
 
Registrado: nov 2003
Ubicación: Valencia city
Posts: 1.481
Reputación: 22
ArdiIIa Va por buen camino
Date cuenta, que el procedimiento en sí, no comprueba que ambas estén pulsadas, sino que comprueba que la secuencia sea precisamente esa.

Se puede optimizar un poco para comprobar que a sido correcta la secuencia. Es decir, tal cual está, se puede pulsar ESC, A y F4 y saltaría, por lo que cambiando el estado de la variable en el caso de que no sea esa la secuencia, se vuelve a "iniciar" la variable.

Código Delphi [-]
      if  (Msg.Message = WM_KEYDOWN) then
      BEGIN
        if Msg.wParam = VK_ESCAPE then
            Begin
            lEscape := True;
            Handled := True ;
            Exit;
            End;
        if (Msg.wParam = VK_F4 ) And lEscape then
            Begin
            lEscape := False;
            Handled := True ;
            ShowMessage('Se ha pulsado la combinación correcta');
            End;
            lEscape := False;
      END;


También se podría comprobar la secuencia distinta por ejemplo F4-ESC, solamente hay que jugar con las variables........
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO
Responder Con Cita