TApplicationEvents

[calogero]

Que tal:

Alguien sabe como cachar un Shift + Tab en un TApplicationEvents ?

Necesito cacharlo ahi, no necesito cacharlo en un ActionList, tampoco en un keyDown.

Si alguien sabe le agradezco su ayuda.

[calogero]

Gracias, ya lo resolví.

[apicito]

Pues si lo contases, quedaría ahi para alguien que en el futuro pueda necesitarlo.

[calogero]

  //Esto lo hice en el evento OnMessage del TApplicatioEvent
  //No tengo el compilador a la mano asi que este codigo no lo extraje direc-
  //tamente del editor pero asi es como lo hice y me funcionó,
  //estoy en un ciber escribiendo como lo recuerdo.
  ...
  var
Shif:SmallInt;
  begin
//Si el resultado que contiene Shift no es cero significa que está
//Presionada
Shif:=HiWord(GetKeyState(VK_SHIFT));
    if (Shit <> 0) and (Msg.Message = WM_KEYDOWN) and
                   (Msg.lParam = 9) then begin // Tabulador
Showmessage('Presionaste Shift-Tab');
//Anulamos lo que presionamos para que no lo cache otro control
Msg.Message:=0;
    end;
  end;