Foros Club Delphi - TApplicationEvents

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - TApplicationEvents (https://www.clubdelphi.com/foros/showthread.php?t=39823)

TApplicationEvents

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.

TApplicationEvents

Gracias, ya lo resolví.

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

TApplicationEvent

Código:

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

  ...

  varShif: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 // TabuladorShowmessage('Presionaste Shift-Tab');
//Anulamos lo que presionamos para que no lo cache otro control
Msg.Message:=0;
    end;

  end;