Ir al contenido


Foto

[TRUCO DELPHI] Verificar las Teclas Shift, Ctrl y Alt.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 31 agosto 2016 - 12:30

[TRUCO DELPHI] Verificar las Teclas Shift, Ctrl y Alt.


delphi
  1. function CtrlDown : Boolean;
  2. var
  3. State : TKeyboardState;
  4. begin
  5. GetKeyboardState(State);
  6. Result := ((State[vk_Control] And 128) <> 0);
  7. end;
  8.  
  9. function ShiftDown : Boolean;
  10. var
  11. State : TKeyboardState;
  12. begin
  13. GetKeyboardState(State);
  14. Result := ((State[vk_Shift] and 128) <> 0);
  15. end;
  16.  
  17. function AltDown : Boolean;
  18. var
  19. State : TKeyboardState;
  20. begin
  21. GetKeyboardState(State);
  22. Result := ((State[vk_Menu] and 128) <> 0);
  23. end;

Ejemplo de uso:


delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3. if ShiftDown then
  4. Form1.Caption := 'Shift' else
  5. Form1.Caption := 'No Shift';
  6. end;

Saludos!


  • 2




IP.Board spam blocked by CleanTalk.